Add action create commands

IntersectMBO · May 26, 2023 · 9c9947d · 9c9947d
1 parent b916801
commit 9c9947d
Show file tree

Hide file tree

Showing 2 changed files with 69 additions and 2 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Shelley/Commands.hs b/cardano-cli/src/Cardano/CLI/Shelley/Commands.hs
@@ -435,7 +435,14 @@ renderQueryCmd cmd =
         TxMempoolQueryInfo -> "info"
 
 data GovernanceAction =
-    GovernanceActionOfInfo
+    GovernanceActionOfNoConfidenceMotion
+  | GovernanceActionOfNewCommittee
+  | GovernanceActionOfConstitutionUpdate
+  | GovernanceActionOfHardForkInitiation
+  | GovernanceActionOfProtocolParameterUpdate
+      ProtocolParametersUpdate
+  | GovernanceActionOfTreasuryWithdrawal
+  | GovernanceActionOfInfo
       GovernanceActionInfoResource
   deriving Show
 

diff --git a/cardano-cli/src/Cardano/CLI/Shelley/Parsers.hs b/cardano-cli/src/Cardano/CLI/Shelley/Parsers.hs
@@ -1237,7 +1237,25 @@ pVoteFileIn =
 pGovernanceActionCmd :: EnvCli -> Parser GovernanceActionCmd
 pGovernanceActionCmd envCli =
   asum
-    [ subParser "create-info"
+    [ subParser "create-no-confidence-motion"
+      $ Opt.info pActionCreateNoConfidenceMotion
+      $ Opt.progDesc "Create a no-confidence motion action"
+    , subParser "create-new-committee"
+      $ Opt.info pActionCreateNewCommittee
+      $ Opt.progDesc "Create a new-committee action"
+    , subParser "create-constitution-update"
+      $ Opt.info pActionCreateConstitutionUpdate
+      $ Opt.progDesc "Create a constitution-update action"
+    , subParser "create-hard-fork-initiation"
+      $ Opt.info pActionCreateHardForkInitiation
+      $ Opt.progDesc "Create a hard-fork-initiation action"
+    , subParser "create-protocol-parameter-update"
+      $ Opt.info pActionCreateProtocolParameterUpdate
+      $ Opt.progDesc "Create an protocol-parameter-update action"
+    , subParser "create-treasury-withdrawal"
+      $ Opt.info pActionCreateTreasuryWithdrawal
+      $ Opt.progDesc "Create an treasury-withdrawal action"
+    , subParser "create-info"
       $ Opt.info pActionCreateInfo
       $ Opt.progDesc "Create an info action"
     , subParser "view"
@@ -1248,6 +1266,48 @@ pGovernanceActionCmd envCli =
       $ Opt.progDesc "Query an on-chain action"
     ]
   where
+    pActionCreateNoConfidenceMotion :: Parser GovernanceActionCmd
+    pActionCreateNoConfidenceMotion =
+      GovernanceActionCreate
+        <$> some pStakeVerifier
+        <*> pure GovernanceActionOfNoConfidenceMotion
+        <*> pOutputFile
+
+    pActionCreateNewCommittee :: Parser GovernanceActionCmd
+    pActionCreateNewCommittee =
+      GovernanceActionCreate
+        <$> some pStakeVerifier
+        <*> pure GovernanceActionOfNewCommittee
+        <*> pOutputFile
+
+    pActionCreateConstitutionUpdate :: Parser GovernanceActionCmd
+    pActionCreateConstitutionUpdate =
+      GovernanceActionCreate
+        <$> some pStakeVerifier
+        <*> pure GovernanceActionOfConstitutionUpdate
+        <*> pOutputFile
+
+    pActionCreateHardForkInitiation :: Parser GovernanceActionCmd
+    pActionCreateHardForkInitiation =
+      GovernanceActionCreate
+        <$> some pStakeVerifier
+        <*> pure GovernanceActionOfHardForkInitiation
+        <*> pOutputFile
+
+    pActionCreateProtocolParameterUpdate :: Parser GovernanceActionCmd
+    pActionCreateProtocolParameterUpdate =
+      GovernanceActionCreate
+        <$> some pStakeVerifier
+        <*> (GovernanceActionOfProtocolParameterUpdate <$> pProtocolParametersUpdate)
+        <*> pOutputFile
+
+    pActionCreateTreasuryWithdrawal :: Parser GovernanceActionCmd
+    pActionCreateTreasuryWithdrawal =
+      GovernanceActionCreate
+        <$> some pStakeVerifier
+        <*> pure GovernanceActionOfTreasuryWithdrawal
+        <*> pOutputFile
+
     pActionCreateInfo :: Parser GovernanceActionCmd
     pActionCreateInfo =
       GovernanceActionCreate