Remove anythingFromSealedTx

cardano-foundation · Aug 8, 2024 · a75e45b · a75e45b
1 parent 5d0b17a
commit a75e45b
Showing 1 changed file with 1 addition and 9 deletions.
diff --git a/lib/primitive/lib/Cardano/Wallet/Primitive/Ledger/Read/Tx/Sealed.hs b/lib/primitive/lib/Cardano/Wallet/Primitive/Ledger/Read/Tx/Sealed.hs
@@ -8,22 +8,17 @@
 
 module Cardano.Wallet.Primitive.Ledger.Read.Tx.Sealed
     ( fromSealedTx
-    , anythingFromSealedTx
     ) where
 
-import Prelude
-
 import Cardano.Api
     ( InAnyCardanoEra (..)
     )
 import Cardano.Wallet.Primitive.Types.Tx.SealedTx
     ( SealedTx (unsafeCardanoTx)
     )
 import Cardano.Wallet.Read
-    ( Era (..)
-    , EraValue (..)
+    ( EraValue (..)
     , Tx (..)
-    , applyEraFun
     )
 import Cardano.Wallet.Read.Eras
     ( Allegra
@@ -43,9 +38,6 @@ fromSealedTx sealed =
     case unsafeCardanoTx sealed of
         InAnyCardanoEra _ce tx -> fromCardanoApiTx tx
 
-anythingFromSealedTx :: (forall era . Tx era -> a) -> SealedTx -> a
-anythingFromSealedTx f = applyEraFun f . fromSealedTx
-
 fromCardanoApiTx :: Cardano.Tx era -> EraValue Tx
 fromCardanoApiTx tx0 = case tx0 of
     Cardano.ShelleyTx era tx -> case era of