diff --git a/cardano-api/cardano-api.cabal b/cardano-api/cardano-api.cabal index 87e6d7b3ac..7f670dae38 100644 --- a/cardano-api/cardano-api.cabal +++ b/cardano-api/cardano-api.cabal @@ -34,7 +34,7 @@ common project-config -Wredundant-constraints -Wunused-packages - if impl(ghc < 9) + if impl(ghc <9) ghc-options: -Wno-incomplete-patterns common maybe-unix @@ -46,7 +46,7 @@ common maybe-Win32 build-depends: Win32 common text - if impl(ghc == 8.10.7)&& os(osx)&& arch(aarch64) + if impl(ghc ==8.10.7) && os(osx) && arch(aarch64) build-depends: text >=1.2.5.0 else build-depends: text >=2.0 @@ -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 f857dae52c..a53f1551de 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.