diff --git a/lib/balance-tx/cardano-balance-tx.cabal b/lib/balance-tx/cardano-balance-tx.cabal
index 6626ee62b45..94feea1eb9c 100644
--- 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
index 3a433956e2f..ab598184749 100644
--- 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