Inline definition of withOutputsIndexed.

cardano-foundation · Feb 6, 2024 · 30abe73 · 30abe73
1 parent 231627b
commit 30abe73
Showing 1 changed file with 6 additions and 7 deletions.
diff --git a/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx/Balance.hs b/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx/Balance.hs
@@ -1589,15 +1589,14 @@ validateTxOutputs constraints outs =
   where
     errors :: [ErrBalanceTxOutputError]
     errors = uncurry ErrBalanceTxOutputErrorOf <$> F.fold
-        [ withOutputsIndexed $
-            mapMaybe (traverse (validateTxOutputSize constraints))
-        , withOutputsIndexed $
-            foldMap (traverse validateTxOutputTokenQuantities)
-        , withOutputsIndexed $
-            mapMaybe (traverse (validateTxOutputAdaQuantity constraints))
+        [ mapMaybe (traverse (validateTxOutputSize constraints))
+            outputsIndexed
+        , foldMap (traverse validateTxOutputTokenQuantities)
+            outputsIndexed
+        , mapMaybe (traverse (validateTxOutputAdaQuantity constraints))
+            outputsIndexed
         ]
       where
-        withOutputsIndexed f = f outputsIndexed
         outputsIndexed = zip [0 ..] outs
 
 -- | Validates the size of a transaction output.