Format.

Author: zmrocze

src/BotPlutusInterface/Balance.hs

@@ -66,11 +66,12 @@ import Ledger.Interval (
  )
 import Ledger.Time (POSIXTimeRange)
 import Ledger.Tx (
+  ToCardanoError (InvalidValidityRange),
   Tx (..),
   TxIn (..),
   TxInType (..),
   TxOut (..),
-  TxOutRef (..), ToCardanoError (InvalidValidityRange)
+  TxOutRef (..),
  )
 import Ledger.Tx qualified as Tx
 import Ledger.Tx.CardanoAPI (CardanoBuildTx)
@@ -83,8 +84,8 @@ import Plutus.V1.Ledger.Api (
 
 import Ledger.Constraints.OffChain qualified as Constraints
 import Prettyprinter (pretty, viaShow, (<+>))
+import Wallet.API qualified as WAPI
 import Prelude
-import qualified Wallet.API as WAPI
 
 -- Config for balancing a `Tx`.
 data BalanceConfig = BalanceConfig
@@ -262,9 +263,10 @@ utxosAndCollateralAtAddress balanceCfg _pabConf changeAddr =
     if bcHasScripts balanceCfg
       then
         maybe
-          ( throwE $ WAPI.OtherError $
-              "The given transaction uses script, but there's no collateral provided."
-                <> "This usually means that, we failed to create Tx and update our ContractEnvironment."
+          ( throwE $
+              WAPI.OtherError $
+                "The given transaction uses script, but there's no collateral provided."
+                  <> "This usually means that, we failed to create Tx and update our ContractEnvironment."
           )
           (const $ pure (utxos, inMemCollateral))
           inMemCollateral
@@ -467,7 +469,8 @@ addOutput changeAddr tx =
             , txOutDatumHash = Nothing
             }
 
-    changeTxOutWithMinAmt <- newEitherT $
+    changeTxOutWithMinAmt <-
+      newEitherT $
         minUtxo @w changeTxOut
 
     return $ tx {txOutputs = txOutputs tx ++ [changeTxOutWithMinAmt]}

src/BotPlutusInterface/CoinSelection.hs

@@ -28,7 +28,7 @@ import Control.Lens (
 import Control.Monad.Except (foldM, throwError, unless)
 import Control.Monad.Freer (Eff, Member)
 import Control.Monad.Trans.Class (lift)
-import Control.Monad.Trans.Either (hoistEither, newEitherT, runEitherT, firstEitherT)
+import Control.Monad.Trans.Either (firstEitherT, hoistEither, newEitherT, runEitherT)
 import Data.Either.Combinators (isRight, maybeToRight)
 import Data.Kind (Type)
 import Data.List qualified as List
@@ -51,8 +51,8 @@ import Plutus.V1.Ledger.Api (
   Credential (PubKeyCredential, ScriptCredential),
  )
 import Prettyprinter (pretty, (<+>))
+import Wallet.API qualified as WAPI
 import Prelude
-import qualified Wallet.API as WAPI
 
 {-
 

src/BotPlutusInterface/Contract.hs

@@ -68,6 +68,7 @@ import Data.List.NonEmpty (NonEmpty ((:|)))
 import Data.Map qualified as Map
 import Data.Row (Row)
 import Data.Text (Text)
+import Data.Text qualified as T
 import Data.Text qualified as Text
 import Data.Vector qualified as V
 import Ledger (POSIXTime, getCardanoTxId)
@@ -93,10 +94,9 @@ import Plutus.Contract.Types (Contract (..), ContractEffs)
 import PlutusTx.Builtins (fromBuiltin)
 import Prettyprinter (Pretty (pretty), (<+>))
 import Prettyprinter qualified as PP
+import Wallet.API qualified as WAPI
 import Wallet.Emulator.Error (WalletAPIError (..))
 import Prelude
-import qualified Wallet.API as WAPI
-import qualified Data.Text as T
 
 runContract ::
   forall (w :: Type) (s :: Row Type) (e :: Type) (a :: Type).

test/Spec/BotPlutusInterface/CoinSelection.hs

@@ -32,8 +32,8 @@ import Test.QuickCheck (Gen, Property, forAll, withMaxSuccess)
 import Test.Tasty (TestTree, testGroup)
 import Test.Tasty.HUnit (Assertion, assertFailure, testCase, (@?=))
 import Test.Tasty.QuickCheck (testProperty)
+import Wallet.API qualified as WAPI
 import Prelude
-import qualified Wallet.API as WAPI
 
 tests :: TestTree
 tests =
@@ -176,8 +176,7 @@ validateBalancing = withMaxSuccess 10000 (forAll balanceGen validate)
   where
     validate :: (TxOut, Map TxOutRef TxOut) -> Bool
     validate (txOutput, utxos) =
-      let 
-          result :: Either Text (Either WAPI.WalletAPIError (Set TxIn))
+      let result :: Either Text (Either WAPI.WalletAPIError (Set TxIn))
           result =
             fst $
               runPABEffectPure def $