From ee10d1c7698047a51da34e03bcdd92b34847eaec Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Cl=C3=A9ment=20Hurlin?= Date: Fri, 10 Jan 2025 09:49:20 +0100 Subject: [PATCH] DRep.hs: delete unused code --- .../CLI/EraBased/Options/Governance/DRep.hs | 16 ---------------- 1 file changed, 16 deletions(-) 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