Fix

cardano-foundation · May 3, 2024 · 86d5119 · 86d5119
1 parent 3c846c7
commit 86d5119
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx/TxWithUTxO.hs b/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx/TxWithUTxO.hs
@@ -16,7 +16,7 @@ module Internal.Cardano.Write.Tx.TxWithUTxO
     ( type TxWithUTxO
     , pattern TxWithUTxO
     , constructEither
-    , constructFilter
+    , constructFiltered
     , isValid
     )
     where
@@ -104,12 +104,12 @@ constructEither tx utxo =
 -- This function filters out any inputs within the given transaction that do
 -- not resolve to a UTxO within the accompanying UTxO set.
 --
-constructFilter
+constructFiltered
     :: forall era. IsRecentEra era
     => Tx era
     -> UTxO era
     -> TxWithUTxO era
-constructFilter tx0 utxo@(UTxO utxoMap) = UnsafeTxWithUTxO {tx, utxo}
+constructFiltered tx0 utxo@(UTxO utxoMap) = UnsafeTxWithUTxO {tx, utxo}
   where
     tx :: Tx era
     tx = over bodyTxL removeUnresolvableInputs tx0