foldMap

IntersectMBO · Mar 2, 2021 · 84dce88 · 84dce88
1 parent 9cb6f31
commit 84dce88
Show file tree

Hide file tree

Showing 6 changed files with 20,765 additions and 20,895 deletions.
diff --git a/plutus-ledger-api/src/Plutus/V1/Ledger/Contexts.hs b/plutus-ledger-api/src/Plutus/V1/Ledger/Contexts.hs
@@ -265,16 +265,12 @@ signsTransaction (Signature sig) (PubKey (LedgerBytes pk)) (TxInfo{txInfoId=TxId
 {-# INLINABLE valueSpent #-}
 -- | Get the total value of inputs spent by this transaction.
 valueSpent :: TxInfo -> Value
-valueSpent p =
-    let inputs' = map txInInfoValue (txInfoInputs p)
-    in mconcat inputs'
+valueSpent = foldMap txInInfoValue . txInfoInputs
 
 {-# INLINABLE valueProduced #-}
 -- | Get the total value of outputs produced by this transaction.
 valueProduced :: TxInfo -> Value
-valueProduced p =
-    let inputs' = map txOutValue (txInfoOutputs p)
-    in mconcat inputs'
+valueProduced = foldMap txOutValue . txInfoOutputs
 
 {-# INLINABLE ownCurrencySymbol #-}
 -- | The 'CurrencySymbol' of the current validator script.