fixes

IntersectMBO · May 20, 2022 · 5b6c58c · 5b6c58c
1 parent a9532b3
commit 5b6c58c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/doc/plutus/tutorials/EscrowImpl.hs b/doc/plutus/tutorials/EscrowImpl.hs
@@ -69,8 +69,9 @@ import Plutus.V1.Ledger.Api (Datum (Datum), DatumHash, ValidatorHash)
 import Plutus.V1.Ledger.Contexts (ScriptContext (ScriptContext, scriptContextTxInfo), TxInfo (txInfoValidRange))
 
 import Plutus.Contract (AsContractError (_ContractError), Contract, ContractError, Endpoint, HasEndpoint, Promise,
-                        awaitTime, currentTime, endpoint, mapError, mkTxConstraints, ownPaymentPubKeyHash, promiseMap,
-                        selectList, submitUnbalancedTx, type (.\/), utxosAt, waitNSlots)
+                        adjustUnbalancedTx, awaitTime, currentTime, endpoint, mapError, mkTxConstraints,
+                        ownPaymentPubKeyHash, promiseMap, selectList, submitUnbalancedTx, type (.\/), utxosAt,
+                        waitNSlots)
 import Plutus.Contract.Typed.Tx qualified as Typed
 import PlutusTx qualified
 {- START imports -}
@@ -80,7 +81,7 @@ import PlutusTx.Coverage qualified as PlutusTx
 import PlutusTx.Prelude (Bool (False), Either (Left, Right), all, either, foldl, id, mempty, traceIfFalse, ($), (&&),
                          (+), (-), (.), (<$>), (==), (>=))
 
-import Prelude (Semigroup ((<>)), foldMap)
+import Prelude (Semigroup ((<>)), foldMap, (>>=))
 import Prelude qualified as Haskell
 
 type EscrowSchema =

diff --git a/plutus-contract/src/Plutus/Contract/Effects.hs b/plutus-contract/src/Plutus/Contract/Effects.hs
@@ -104,10 +104,10 @@ import Plutus.ChainIndex.Api (IsUtxoResponse (IsUtxoResponse), TxosResponse (Txo
                               UtxosResponse (UtxosResponse))
 import Plutus.ChainIndex.Tx (ChainIndexTx (_citxTxId))
 import Plutus.ChainIndex.Types (Tip, TxOutStatus, TxStatus)
+import Plutus.Contract.CardanoAPI (ToCardanoError)
 import Plutus.V1.Ledger.Api (Address, Datum, DatumHash, MintingPolicy, MintingPolicyHash, Redeemer, RedeemerHash,
                              StakeValidator, StakeValidatorHash, TxId, TxOutRef, ValidatorHash)
 import Plutus.V1.Ledger.Value (AssetClass)
-import Plutus.Contract.CardanoAPI (ToCardanoError)
 import Prettyprinter (Pretty (pretty), hsep, indent, viaShow, vsep, (<+>))
 import Wallet.Error (WalletAPIError)
 import Wallet.Types (ContractInstanceId, EndpointDescription, EndpointValue)