From ecf577b5356e5ae1f0aaf7c442a14df03e179998 Mon Sep 17 00:00:00 2001 From: Mateusz Galazyn Date: Wed, 20 Sep 2023 10:56:43 +0200 Subject: [PATCH] #288 Add support for conway protocol parameters --- .../src/Cardano/CLI/EraBased/Options/Governance/Actions.hs | 7 +++++++ cardano-cli/src/Cardano/CLI/Orphans.hs | 2 -- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Actions.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Actions.hs index 00add08074..2d2ae151bb 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Actions.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Actions.hs @@ -290,6 +290,13 @@ dpGovActionProtocolParametersUpdate = \case <$> pCommonProtocolParameters <*> pAlonzoOnwardsPParams <*> pIntroducedInBabbagePParams + <*> pIntroducedInConwayPParams + +pIntroducedInConwayPParams :: Parser (IntroducedInConwayPParamsUpdate ledgerera) +pIntroducedInConwayPParams = + IntroducedInConwayPParamsUpdate + <$> pVotingPoolThd + <*> pDRepPoolThd pGovernanceActionTreasuryWithdrawalCmd :: CardanoEra era -> Maybe (Parser (GovernanceActionCmds era)) pGovernanceActionTreasuryWithdrawalCmd era = do diff --git a/cardano-cli/src/Cardano/CLI/Orphans.hs b/cardano-cli/src/Cardano/CLI/Orphans.hs index b0bad01c8e..71076ba618 100644 --- a/cardano-cli/src/Cardano/CLI/Orphans.hs +++ b/cardano-cli/src/Cardano/CLI/Orphans.hs @@ -1,5 +1,3 @@ -{-# OPTIONS_GHC -Wno-orphans #-} - module Cardano.CLI.Orphans () where import Cardano.Api ()