Rename runGovernanceDrepRetirementCertificateCmd to runGovernanceDRep…

…RetirementCertificateCmd
IntersectMBO · Nov 2, 2023 · 3cb4c09 · 3cb4c09
1 parent 3f3bf27
commit 3cb4c09
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/DRep.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/DRep.hs
@@ -49,7 +49,7 @@ runGovernanceDRepCmds = \case
         & firstExceptT CmdRegistrationError
 
   GovernanceDRepRetirementCertificateCmd w vkeyOrHashOrFile deposit outFp ->
-    runGovernanceDrepRetirementCertificateCmd w vkeyOrHashOrFile deposit outFp
+    runGovernanceDRepRetirementCertificateCmd w vkeyOrHashOrFile deposit outFp
       & firstExceptT CmdGovernanceCmdError
 
   GovernanceDRepMetadataHashCmd _ inFp mOutFp ->
@@ -116,13 +116,13 @@ runGovernanceDRepRegistrationCertificateCmd cOnwards drepKOrHOrF deposit anchor
       $ conwayEraOnwardsConstraints cOnwards
       $ textEnvelopeToJSON description registrationCert
 
-runGovernanceDrepRetirementCertificateCmd :: ()
+runGovernanceDRepRetirementCertificateCmd :: ()
   => ConwayEraOnwards era
   -> VerificationKeyOrHashOrFile DRepKey
   -> Lovelace
   -> File () 'Out
   -> ExceptT GovernanceCmdError IO ()
-runGovernanceDrepRetirementCertificateCmd w vKeyOrHashOrFile deposit outFile =
+runGovernanceDRepRetirementCertificateCmd w vKeyOrHashOrFile deposit outFile =
    conwayEraOnwardsConstraints w $ do
      DRepKeyHash drepKeyHash <- firstExceptT GovernanceCmdKeyReadError
        . newExceptT