From b324263dd1f3170bccb4cbb63db4d64044525f5f Mon Sep 17 00:00:00 2001
From: Johannes Lund <anviking@me.com>
Date: Fri, 18 Oct 2024 15:48:17 +0200
Subject: [PATCH] Drop unused `{to,from}CardanoApiUTxO` helpers

---
 .../lib/internal/Internal/Cardano/Write/Tx.hs | 27 -------------------
 .../spec/Internal/Cardano/Write/TxSpec.hs     | 27 -------------------
 2 files changed, 54 deletions(-)

diff --git a/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx.hs b/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx.hs
index ccc87ab49ff..ed03fd1dc2f 100644
--- a/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx.hs
+++ b/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx.hs
@@ -31,8 +31,6 @@ module Internal.Cardano.Write.Tx
 
     -- ** Helpers for cardano-api compatibility
     , fromCardanoApiTx
-    , toCardanoApiUTxO
-    , fromCardanoApiUTxO
     , toCardanoApiTx
 
     -- ** Misc
@@ -506,31 +504,6 @@ toCardanoApiTx =
     CardanoApi.ShelleyTx
     $ shelleyBasedEraFromRecentEra (recentEra :: RecentEra era)
 
-toCardanoApiUTxO
-    :: forall era. IsRecentEra era
-    => Shelley.UTxO era
-    -> CardanoApi.UTxO (CardanoApiEra era)
-toCardanoApiUTxO =
-    CardanoApi.UTxO
-    . Map.mapKeys CardanoApi.fromShelleyTxIn
-    . Map.map (CardanoApi.fromShelleyTxOut shelleyBasedEra)
-    . unUTxO
-  where
-    shelleyBasedEra = shelleyBasedEraFromRecentEra (recentEra :: RecentEra era)
-
-fromCardanoApiUTxO
-    :: forall era. IsRecentEra era
-    => CardanoApi.UTxO (CardanoApiEra era)
-    -> Shelley.UTxO era
-fromCardanoApiUTxO =
-    Shelley.UTxO
-    . Map.mapKeys CardanoApi.toShelleyTxIn
-    . Map.map
-        (CardanoApi.toShelleyTxOut shelleyBasedEra)
-    . CardanoApi.unUTxO
-  where
-    shelleyBasedEra = shelleyBasedEraFromRecentEra (recentEra :: RecentEra era)
-
 --------------------------------------------------------------------------------
 -- PParams
 --------------------------------------------------------------------------------
diff --git a/lib/balance-tx/test/spec/Internal/Cardano/Write/TxSpec.hs b/lib/balance-tx/test/spec/Internal/Cardano/Write/TxSpec.hs
index c18bc7935b7..5c2ecec502b 100644
--- a/lib/balance-tx/test/spec/Internal/Cardano/Write/TxSpec.hs
+++ b/lib/balance-tx/test/spec/Internal/Cardano/Write/TxSpec.hs
@@ -10,10 +10,6 @@ module Internal.Cardano.Write.TxSpec where
 
 import Prelude
 
-import Cardano.Api.Gen
-    ( genTxIn
-    , genTxOut
-    )
 import Cardano.Ledger.Api
     ( PParams
     , coinTxOutL
@@ -35,9 +31,7 @@ import Internal.Cardano.Write.Tx
     ( computeMinimumCoinForTxOut
     , datumHashFromBytes
     , datumHashToBytes
-    , fromCardanoApiUTxO
     , isBelowMinimumCoinForTxOut
-    , toCardanoApiUTxO
     )
 import Test.Cardano.Ledger.Alonzo.Serialisation.Generators
     ()
@@ -54,7 +48,6 @@ import Test.Hspec
     )
 import Test.QuickCheck
     ( Arbitrary (..)
-    , Arbitrary1 (liftArbitrary)
     , Property
     , arbitraryBoundedEnum
     , conjoin
@@ -72,9 +65,7 @@ import Test.Utils.Laws
     ( testLawsMany
     )
 
-import qualified Cardano.Api as CardanoApi
 import qualified Data.ByteString as BS
-import qualified Data.Map as Map
 
 spec :: Spec
 spec = do
@@ -125,17 +116,6 @@ spec = do
                         (out & coinTxOutL .~ c)
                         === False
 
-    describe "UTxO" $ do
-        it "is isomorphic to CardanoApi.UTxO" $ do
-            testIsomorphism
-                (NamedFun
-                    (toCardanoApiUTxO @Babbage)
-                    "toCardanoApiUTxO")
-                (NamedFun
-                    (fromCardanoApiUTxO @Babbage)
-                    "fromCardanoApiUTxO")
-                id
-
 --------------------------------------------------------------------------------
 -- Arbitrary instances
 --------------------------------------------------------------------------------
@@ -144,13 +124,6 @@ instance Arbitrary AnyRecentEra where
     arbitrary = arbitraryBoundedEnum
     shrink = shrinkBoundedEnum
 
-instance Arbitrary (CardanoApi.UTxO CardanoApi.BabbageEra) where
-    arbitrary = CardanoApi.UTxO . Map.fromList <$> liftArbitrary genTxInOutEntry
-      where
-        genTxInOutEntry = (,)
-            <$> genTxIn
-            <*> genTxOut CardanoApi.BabbageEra
-
 --------------------------------------------------------------------------------
 -- Helpers
 --------------------------------------------------------------------------------