[ADP-3344] Split off Cardano.Write.Eras (#4809)

This pull requests splits off a public module `Cardano.Write.Eras` for
working with the notion of "recent era".

First, we split off an internal module, then we create a public module
that re-exports the internal module.

### Comments

* In order to keep the scope of this pull request contained, I have not
attempted to shrink the exported interface of `Cardano.Write.Eras` yet.

### Issue Number

ADP-3344

lib/api/src/Cardano/Wallet/Api/Http/Server/Error.hs

@@ -214,6 +214,9 @@ import qualified Cardano.Wallet.Api.Types.WalletAssets as ApiWalletAssets
 import qualified Cardano.Wallet.Primitive.Types.TokenBundle as TokenBundle
 import qualified Cardano.Wallet.Primitive.Types.TokenMap as TokenMap
 import qualified Cardano.Wallet.Primitive.Types.UTxO as UTxO
+import qualified Cardano.Write.Eras as Write
+    ( IsRecentEra
+    )
 import qualified Data.Aeson as Aeson
 import qualified Data.ByteString as BS
 import qualified Data.ByteString.Lazy as BL
@@ -222,8 +225,7 @@ import qualified Data.List as L
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as T
 import qualified Internal.Cardano.Write.Tx as Write
-    ( IsRecentEra
-    , serializeTx
+    ( serializeTx
     )
 import qualified Internal.Cardano.Write.Tx as WriteTx
 import qualified Internal.Cardano.Write.Tx.Balance as Write

lib/api/src/Cardano/Wallet/Api/Http/Server/Error/AssignReedemers.hs

@@ -17,12 +17,12 @@ import Cardano.Wallet.Api.Http.Server.Error.IsServerError
 import Cardano.Wallet.Api.Types.Error
     ( ApiErrorInfo (..)
     )
+import Cardano.Write.Eras
+    ( IsRecentEra (..)
+    )
 import Fmt
     ( pretty
     )
-import Internal.Cardano.Write.Tx
-    ( IsRecentEra (..)
-    )
 import Internal.Cardano.Write.Tx.Balance
     ( ErrAssignRedeemers (..)
     )

lib/api/src/Cardano/Wallet/Api/Http/Shelley/Server.hs

@@ -668,6 +668,9 @@ import Cardano.Wallet.Transaction
 import Cardano.Wallet.Unsafe
     ( unsafeRunExceptT
     )
+import Cardano.Write.Eras
+    ( AnyRecentEra (..)
+    )
 import Control.Arrow
     ( second
     , (&&&)
@@ -799,9 +802,6 @@ import Fmt
 import GHC.Generics
     ( Generic
     )
-import Internal.Cardano.Write.Tx
-    ( AnyRecentEra (..)
-    )
 import Internal.Cardano.Write.Tx.Balance
     ( PartialTx (..)
     , Redeemer (..)
@@ -882,6 +882,12 @@ import qualified Cardano.Wallet.Primitive.Types.UTxO as UTxO
 import qualified Cardano.Wallet.Read as Read
 import qualified Cardano.Wallet.Read.Hash as Hash
 import qualified Cardano.Wallet.Registry as Registry
+import qualified Cardano.Write.Eras as Write
+    ( IsRecentEra
+    , RecentEra
+    , cardanoEra
+    , cardanoEraFromRecentEra
+    )
 import qualified Control.Concurrent.Concierge as Concierge
 import qualified Data.ByteArray as BA
 import qualified Data.ByteString as BS
@@ -893,14 +899,10 @@ import qualified Data.Set as Set
 import qualified Data.Text as T
 import qualified Internal.Cardano.Write.Tx as Write
     ( Datum (DatumHash, NoDatum)
-    , IsRecentEra
     , PParamsInAnyRecentEra (PParamsInAnyRecentEra)
-    , RecentEra
     , Tx
     , TxIn
     , TxOutInRecentEra (TxOutInRecentEra)
-    , cardanoEra
-    , cardanoEraFromRecentEra
     , fromCardanoApiTx
     , getFeePerByte
     , pattern PolicyId

lib/api/src/Cardano/Wallet/Api/Types/Era.hs

@@ -69,12 +69,12 @@ import Text.Show
     )
 
 import qualified Cardano.Wallet.Read as Read
-import qualified Data.Aeson as Aeson
-import qualified Data.Set as Set
-import qualified Internal.Cardano.Write.Tx as Write
+import qualified Cardano.Write.Eras as Write
     ( allRecentEras
     , toAnyCardanoEra
     )
+import qualified Data.Aeson as Aeson
+import qualified Data.Set as Set
 
 data ApiEra
     = ApiByron

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
@@ -87,6 +88,7 @@ library internal
     , text
     , transformers
   exposed-modules:
+    Internal.Cardano.Write.Eras
     Internal.Cardano.Write.Tx
     Internal.Cardano.Write.Tx.Balance
     Internal.Cardano.Write.Tx.Balance.CoinSelection