diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/DRep.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/DRep.hs index 4f57fb9d03..97a78ed23f 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/DRep.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/DRep.hs @@ -214,19 +214,3 @@ pDRepMetadataSource = [ DrepMetadataFileIn <$> pFileInDirection "drep-metadata-file" "JSON Metadata file to hash." , DrepMetadataURL <$> pUrl "drep-metadata-url" "URL pointing to the JSON Metadata file to hash." ] - --------------------------------------------------------------------------------- - -data AnyEraDecider era where - AnyEraDeciderShelleyToBabbage :: ShelleyToBabbageEra era -> AnyEraDecider era - AnyEraDeciderConwayOnwards :: ConwayEraOnwards era -> AnyEraDecider era - -instance Eon AnyEraDecider where - inEonForEra no yes = \case - ByronEra -> no - ShelleyEra -> yes $ AnyEraDeciderShelleyToBabbage ShelleyToBabbageEraShelley - AllegraEra -> yes $ AnyEraDeciderShelleyToBabbage ShelleyToBabbageEraAllegra - MaryEra -> yes $ AnyEraDeciderShelleyToBabbage ShelleyToBabbageEraMary - AlonzoEra -> yes $ AnyEraDeciderShelleyToBabbage ShelleyToBabbageEraAlonzo - BabbageEra -> yes $ AnyEraDeciderShelleyToBabbage ShelleyToBabbageEraBabbage - ConwayEra -> yes $ AnyEraDeciderConwayOnwards ConwayEraOnwardsConway