Add public module Cardano.Write.Eras

lib/balance-tx/cardano-balance-tx.cabal

@@ -40,6 +40,7 @@ library
   build-depends:
     , cardano-balance-tx:internal
   exposed-modules:
+    Cardano.Write.Eras
     Cardano.Write.Tx
 
 library internal

lib/balance-tx/lib/main/Cardano/Write/Eras.hs

@@ -0,0 +1,57 @@
+-- |
+-- Copyright: © 2024 Cardano Foundation
+-- License: Apache-2.0
+--
+module Cardano.Write.Eras
+    (
+    -- * Eras
+      Babbage
+    , Conway
+
+    -- ** RecentEra
+    , RecentEra (..)
+    , IsRecentEra (..)
+    , CardanoApiEra
+    , toRecentEra
+    , fromRecentEra
+    , MaybeInRecentEra (..)
+    , LatestLedgerEra
+    , RecentEraConstraints
+    , allRecentEras
+
+    -- ** Existential wrapper
+    , AnyRecentEra (..)
+    , toAnyCardanoEra
+    , fromAnyCardanoEra
+
+    -- ** Helpers for cardano-api compatibility
+    , cardanoEra
+    , shelleyBasedEra
+    , CardanoApi.ShelleyLedgerEra
+    , cardanoEraFromRecentEra
+    , shelleyBasedEraFromRecentEra
+    ) where
+
+import Cardano.Ledger.Api
+    ( Babbage
+    , Conway
+    )
+import Internal.Cardano.Write.Eras
+    ( AnyRecentEra (..)
+    , CardanoApi.ShelleyLedgerEra
+    , CardanoApiEra
+    , IsRecentEra (..)
+    , LatestLedgerEra
+    , MaybeInRecentEra (..)
+    , RecentEra (..)
+    , RecentEraConstraints
+    , allRecentEras
+    , cardanoEra
+    , cardanoEraFromRecentEra
+    , fromAnyCardanoEra
+    , fromRecentEra
+    , shelleyBasedEra
+    , shelleyBasedEraFromRecentEra
+    , toAnyCardanoEra
+    , toRecentEra
+    )

lib/network-layer/src/Cardano/Wallet/Network.hs

@@ -72,6 +72,9 @@ import Cardano.Wallet.Primitive.Types.StakePoolSummary
 import Cardano.Wallet.Primitive.Types.Tx.SealedTx
     ( SealedTx
     )
+import Cardano.Write.Eras
+    ( MaybeInRecentEra
+    )
 import Control.Monad.Trans.Except
     ( ExceptT (..)
     )
@@ -96,9 +99,6 @@ import Data.Text.Class
 import GHC.Generics
     ( Generic
     )
-import Internal.Cardano.Write.Tx
-    ( MaybeInRecentEra
-    )
 
 import qualified Cardano.Wallet.Read as Read
 import qualified Data.Text as T