#288 Add support for conway protocol parameters

IntersectMBO · Sep 20, 2023 · ecf577b · ecf577b
1 parent d634aaf
commit ecf577b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 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
@@ -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
@@ -1,5 +1,3 @@
-{-# OPTIONS_GHC -Wno-orphans #-}
-
 module Cardano.CLI.Orphans () where
 
 import           Cardano.Api ()