Delete TODOs

IntersectMBO · Oct 11, 2023 · 3f7cf27 · 3f7cf27
1 parent cd7ad36
commit 3f7cf27
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Commands/Governance/Committee.hs b/cardano-cli/src/Cardano/CLI/EraBased/Commands/Governance/Committee.hs
@@ -22,8 +22,8 @@ import           Data.Text (Text)
 data GovernanceCommitteeCmds era
   = GovernanceCommitteeKeyGenColdCmd                            (GovernanceCommitteeKeyGenColdCmdArgs                           era)
   | GovernanceCommitteeKeyGenHotCmd                             (GovernanceCommitteeKeyGenHotCmdArgs                            era)
-  | GovernanceCommitteeKeyHashCmd                               (GovernanceCommitteeKeyHashCmdArgs                              era) -- TODO to be moved under the top-level command group "key"
-  | GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmd  (GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era) -- TODO to be moved under the top-level command group "key"
+  | GovernanceCommitteeKeyHashCmd                               (GovernanceCommitteeKeyHashCmdArgs                              era)
+  | GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmd  (GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era)
   | GovernanceCommitteeCreateColdKeyResignationCertificateCmd   (GovernanceCommitteeCreateColdKeyResignationCertificateCmdArgs  era)
   deriving Show
 
@@ -41,14 +41,12 @@ data GovernanceCommitteeKeyGenHotCmdArgs era =
     , skeyOutFile :: !(File (SigningKey ()) Out)
     } deriving Show
 
- -- TODO to be moved under the top-level command group "key"
 data GovernanceCommitteeKeyHashCmdArgs era =
   GovernanceCommitteeKeyHashCmdArgs
     { eon         :: !(ConwayEraOnwards era)
     , vkeySource  :: !AnyVerificationKeySource
     } deriving Show
 
--- TODO to be moved under the top-level command group "key"
 data GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs era =
   GovernanceCommitteeCreateHotKeyAuthorizationCertificateCmdArgs
     { eon               :: !(ConwayEraOnwards era)