diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Commands/Governance/Actions.hs b/cardano-cli/src/Cardano/CLI/EraBased/Commands/Governance/Actions.hs index 1c350f99d3..4ed149d71b 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Commands/Governance/Actions.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Commands/Governance/Actions.hs @@ -41,6 +41,10 @@ data GovernanceActionCmds era | GovernanceActionTreasuryWithdrawal (ConwayEraOnwards era) EraBasedTreasuryWithdrawal + | GoveranceActionInfo -- TODO: Conway era - ledger currently provides a placeholder constructor + (ConwayEraOnwards era) + (File () In) + (File () Out) deriving Show data EraBasedNewCommittee @@ -98,6 +102,9 @@ renderGovernanceActionCmds = \case GovernanceActionCreateNoConfidence {} -> "governance action create-no-confidence" + GoveranceActionInfo {} -> + "governance action create-info" + data AnyStakeIdentifier = AnyStakeKey (VerificationKeyOrHashOrFile StakeKey) | AnyStakePoolKey (VerificationKeyOrHashOrFile StakePoolKey) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs index a335118846..ee2a33b7b5 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs @@ -1,6 +1,7 @@ {-# LANGUAGE DataKinds #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE TupleSections #-} +{-# LANGUAGE TypeApplications #-} module Cardano.CLI.EraBased.Run.Governance.Actions ( runGovernanceActionCmds @@ -58,6 +59,17 @@ runGovernanceActionCmds = \case GovernanceActionCreateNoConfidence cOn noConfidence -> runGovernanceActionCreateNoConfidence cOn noConfidence + GoveranceActionInfo cOn iFp oFp -> + runGovernanceActionInfo cOn iFp oFp + +runGovernanceActionInfo + :: ConwayEraOnwards era + -> File () In + -> File () Out + -> ExceptT GovernanceActionsError IO () +runGovernanceActionInfo _cOn _iFp _oFp = + liftIO $ print @String "TODO: Conway era - implement runGovernanceActionInfo - ledger currently provides a placeholder constructor" + -- TODO: Conway era - update with new ledger types from cardano-ledger-conway-1.7.0.0 runGovernanceActionCreateNoConfidence :: ConwayEraOnwards era