diff --git a/cardano-api/cardano-api.cabal b/cardano-api/cardano-api.cabal index 87e6d7b3a..99498d469 100644 --- a/cardano-api/cardano-api.cabal +++ b/cardano-api/cardano-api.cabal @@ -83,6 +83,8 @@ library internal Cardano.Api.Eras.Case Cardano.Api.Eras.Core Cardano.Api.Error + Cardano.Api.Experimental.Eras + Cardano.Api.Experimental.Tx Cardano.Api.Feature Cardano.Api.Fees Cardano.Api.Genesis @@ -131,8 +133,6 @@ library internal Cardano.Api.ReexposeNetwork Cardano.Api.Rewards Cardano.Api.Script - Cardano.Api.Experimental.Eras - Cardano.Api.Experimental.Tx Cardano.Api.ScriptData Cardano.Api.SerialiseBech32 Cardano.Api.SerialiseCBOR diff --git a/cardano-api/internal/Cardano/Api/Experimental/Eras.hs b/cardano-api/internal/Cardano/Api/Experimental/Eras.hs index f857dae52..a53f1551d 100644 --- a/cardano-api/internal/Cardano/Api/Experimental/Eras.hs +++ b/cardano-api/internal/Cardano/Api/Experimental/Eras.hs @@ -28,13 +28,13 @@ module Cardano.Api.Experimental.Eras ) where +import Cardano.Api.Eon.BabbageEraOnwards import Cardano.Api.Eon.ShelleyBasedEra (ShelleyBasedEra (..)) import qualified Cardano.Api.Eras.Core as Api import Cardano.Api.Via.ShowOf import qualified Cardano.Ledger.Babbage as Ledger import qualified Cardano.Ledger.Conway as Ledger -import Cardano.Api.Eon.BabbageEraOnwards import Data.Kind import Prettyprinter @@ -103,7 +103,6 @@ data Era era where -- instance UseEra ConwayEra where -- useEra = ConwayEra -- @ - protocolVersionToSbe :: Era era -> ShelleyBasedEra (AvailableErasToSbe era) @@ -128,7 +127,6 @@ babbageEraOnwardsToEra :: BabbageEraOnwards era -> Era (ApiEraToExperimentalEra babbageEraOnwardsToEra BabbageEraOnwardsBabbage = BabbageEra babbageEraOnwardsToEra BabbageEraOnwardsConway = ConwayEra - ------------------------------------------------------------------------- -- | Type class interface for the 'Era' type.