Remove dependency on either in balance-tx

cardano-foundation · Feb 21, 2025 · 13db5c7 · 13db5c7
1 parent dcc0e96
commit 13db5c7
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 5 deletions.
diff --git a/lib/balance-tx/cardano-balance-tx.cabal b/lib/balance-tx/cardano-balance-tx.cabal
@@ -71,7 +71,6 @@ library internal
     , cborg >= 0.2.1 && <0.3
     , containers >= 0.5 && < 0.8
     , deepseq >= 1.4.4 && < 1.6
-    , either
     , fmt >= 0.6.3 && < 0.7
     , generic-lens >= 2.2.2.0 && < 2.3
     , groups >= 0.5.3 && < 0.6

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
@@ -33,9 +33,6 @@ import Control.Lens
     ( over
     , view
     )
-import Data.Either.Combinators
-    ( maybeToLeft
-    )
 import Data.Maybe
     ( fromMaybe
     )
@@ -91,7 +88,7 @@ construct
     -> UTxO era
     -> Either (NESet TxIn) (TxWithUTxO era)
 construct tx utxo =
-    maybeToLeft txWithUTxO (unresolvableInputs txWithUTxO)
+    maybe (Right txWithUTxO) Left (unresolvableInputs txWithUTxO)
   where
     txWithUTxO = UnsafeTxWithUTxO tx utxo