added draft of adjust unbalanced

Author: sadMaxim

src/BotPlutusInterface/Contract.hs

@@ -56,8 +56,10 @@ import Data.Vector qualified as V
 import Ledger (POSIXTime)
 import Ledger qualified
 import Ledger.Address (PaymentPubKeyHash (PaymentPubKeyHash))
-import Ledger.Constraints.OffChain (UnbalancedTx (..))
+import Ledger.Constraints.OffChain (UnbalancedTx (..), adjustUnbalancedTx)
+import Ledger.Params (Params(Params))
 import Ledger.Slot (Slot (Slot))
+import Ledger.TimeSlot (SlotConfig (..))
 import Ledger.Tx (CardanoTx (CardanoApiTx, EmulatorTx))
 import Ledger.Tx qualified as Tx
 import Plutus.ChainIndex.TxIdState (fromTx, transactionStatus)
@@ -189,6 +191,7 @@ handlePABReq contractEnv req = do
       either (error . show) (PosixTimeRangeToContainedSlotRangeResp . Right)
         <$> posixTimeRangeToContainedSlotRange @w posixTimeRange
     AwaitTxStatusChangeReq txId -> AwaitTxStatusChangeResp txId <$> awaitTxStatusChange @w contractEnv txId
+    AdjustUnbalancedTxReq unbalancedTx -> AdjustUnbalancedTxResp <$> adjustUnbalancedTx' @w contractEnv unbalancedTx
     ------------------------
     -- Unhandled requests --
     ------------------------
@@ -203,6 +206,28 @@ handlePABReq contractEnv req = do
   printBpiLog @w Debug $ pretty resp
   pure resp
 
+
+adjustUnbalancedTx' ::
+  forall (w :: Type) (effs :: [Type -> Type]).
+  -- Member (PABEffect w) effs =>
+  ContractEnvironment w ->
+  UnbalancedTx ->
+  Eff effs (Either Tx.ToCardanoError UnbalancedTx)
+adjustUnbalancedTx' contractEnv unbalancedTx = do
+  let slotConfig = SlotConfig 20000 1654524000 
+      maybeProtocolParams = contractEnv.cePABConfig.pcProtocolParams
+      networkId  = contractEnv.cePABConfig.pcNetwork
+      maybeParams = do {pparams <- maybeProtocolParams; return $ Params slotConfig pparams networkId}
+  case maybeParams of  
+    Just params -> pure $ snd <$> adjustUnbalancedTx params unbalancedTx
+    _           -> pure . Left $ Tx.TxBodyError "no protocol params"
+
+
+
+
+
+
+
 {- | Await till transaction status change to something from `Unknown`.
  Uses `chain-index` to query transaction by id.
  Important notes: