format

Author: IAmPara0x

test/Spec/BotPlutusInterface/CoinSelection.hs

@@ -96,5 +96,3 @@ greedyApprox = do
   case eresult of
     Left e -> assertFailure (Text.unpack e)
     Right result -> result @?= expectedResults
-
-

test/Spec/NatLedger.hs

@@ -1,41 +1,51 @@
 {-# LANGUAGE NamedFieldPuns #-}
 
-module Spec.NatLedger
-  ( NatValue(PValue)
-  , NatTxOut(NatTxOut, natTxOutAddress, natTxOutValue, natTxOutDatumHash)
-  , NatTxOutRef(NatTxOutRef, natTxOutRefId, natTxRefIdx)
-  , toLedgerTxOut
-  , toLedgerTxOutRef
-  , toLedgerValue
-  )
-  where
+module Spec.NatLedger (
+  NatValue (PValue),
+  NatTxOut (NatTxOut, natTxOutAddress, natTxOutValue, natTxOutDatumHash),
+  NatTxOutRef (NatTxOutRef, natTxOutRefId, natTxRefIdx),
+  toLedgerTxOut,
+  toLedgerTxOutRef,
+  toLedgerValue,
+) where
 
 import BotPlutusInterface.Types ()
 
 import Data.Bifunctor (second)
 import GHC.Natural (Natural)
-import Ledger.Tx (TxOut (..), TxOutRef (..), Address)
-import Ledger.Value (Value(Value), CurrencySymbol, TokenName)
+import Ledger.Tx (Address, TxOut (..), TxOutRef (..))
+import Ledger.Value (CurrencySymbol, TokenName, Value (Value))
+import Plutus.V1.Ledger.Api (DatumHash, TxId)
 import PlutusTx.AssocMap qualified as AssocMap
-import Plutus.V1.Ledger.Api (TxId, DatumHash)
-import Test.QuickCheck (Arbitrary(arbitrary))
+import Test.QuickCheck (Arbitrary (arbitrary))
 import Prelude
 
-newtype NatValue = PValue { getNatValue :: AssocMap.Map CurrencySymbol
-                                             (AssocMap.Map TokenName Natural)
-                          } deriving newtype (Arbitrary, Show)
+newtype NatValue = PValue
+  { getNatValue ::
+      AssocMap.Map
+        CurrencySymbol
+        (AssocMap.Map TokenName Natural)
+  }
+  deriving newtype (Arbitrary, Show)
 
 toLedgerValue :: NatValue -> Value
-toLedgerValue = Value
-              . AssocMap.fromList
-              . map (second $ AssocMap.fromList
-                            . map (second toInteger)
-                            . AssocMap.toList)
-              . AssocMap.toList . getNatValue
+toLedgerValue =
+  Value
+    . AssocMap.fromList
+    . map
+      ( second $
+          AssocMap.fromList
+            . map (second toInteger)
+            . AssocMap.toList
+      )
+    . AssocMap.toList
+    . getNatValue
 
-data NatTxOutRef = NatTxOutRef { natTxOutRefId :: TxId
-                               , natTxRefIdx :: Natural
-                               } deriving stock (Show)
+data NatTxOutRef = NatTxOutRef
+  { natTxOutRefId :: TxId
+  , natTxRefIdx :: Natural
+  }
+  deriving stock (Show)
 
 instance Arbitrary NatTxOutRef where
   arbitrary = do
@@ -46,10 +56,12 @@ instance Arbitrary NatTxOutRef where
 toLedgerTxOutRef :: NatTxOutRef -> TxOutRef
 toLedgerTxOutRef NatTxOutRef {natTxRefIdx, natTxOutRefId} = TxOutRef natTxOutRefId (toInteger natTxRefIdx)
 
-data NatTxOut = NatTxOut { natTxOutAddress :: Address
-                         , natTxOutValue   :: NatValue
-                         , natTxOutDatumHash :: Maybe DatumHash
-                         } deriving stock (Show)
+data NatTxOut = NatTxOut
+  { natTxOutAddress :: Address
+  , natTxOutValue :: NatValue
+  , natTxOutDatumHash :: Maybe DatumHash
+  }
+  deriving stock (Show)
 
 instance Arbitrary NatTxOut where
   arbitrary = do
@@ -59,5 +71,5 @@ instance Arbitrary NatTxOut where
     return (NatTxOut addr value datumhash)
 
 toLedgerTxOut :: NatTxOut -> TxOut
-toLedgerTxOut NatTxOut{natTxOutAddress, natTxOutValue, natTxOutDatumHash}
-  = TxOut natTxOutAddress (toLedgerValue natTxOutValue) natTxOutDatumHash
+toLedgerTxOut NatTxOut {natTxOutAddress, natTxOutValue, natTxOutDatumHash} =
+  TxOut natTxOutAddress (toLedgerValue natTxOutValue) natTxOutDatumHash