Rename StakeCredentialDelegationCert to StakeCredentialPoolDelegation…

…Cert
IntersectMBO · May 26, 2023 · 619e278 · 619e278
1 parent 8f4957f
commit 619e278
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 7 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Shelley/Commands.hs b/cardano-cli/src/Cardano/CLI/Shelley/Commands.hs
@@ -124,7 +124,7 @@ data StakeAddressCmd
   | StakeAddressKeyHash (VerificationKeyOrFile StakeKey) (Maybe (File () Out))
   | StakeAddressBuild StakeVerifier NetworkId (Maybe (File () Out))
   | StakeRegistrationCert StakeIdentifier (File () Out)
-  | StakeCredentialDelegationCert
+  | StakeCredentialPoolDelegationCert
       StakeIdentifier
       PoolDelegationTarget
       (File Certificate Out)
@@ -138,7 +138,7 @@ renderStakeAddressCmd cmd =
     StakeAddressKeyHash {} -> "stake-address key-hash"
     StakeAddressBuild {} -> "stake-address build"
     StakeRegistrationCert {} -> "stake-address registration-certificate"
-    StakeCredentialDelegationCert {} -> "stake-address pool-delegation-certificate"
+    StakeCredentialPoolDelegationCert {} -> "stake-address pool-delegation-certificate"
     StakeCredentialDeRegistrationCert {} -> "stake-address deregistration-certificate"
 
 data KeyCmd

diff --git a/cardano-cli/src/Cardano/CLI/Shelley/Parsers.hs b/cardano-cli/src/Cardano/CLI/Shelley/Parsers.hs
@@ -406,7 +406,7 @@ pStakeAddressCmd envCli =
 
     pStakeAddressPoolDelegationCert :: Parser StakeAddressCmd
     pStakeAddressPoolDelegationCert =
-      StakeCredentialDelegationCert
+      StakeCredentialPoolDelegationCert
         <$> pStakeIdentifier
         <*> pPoolDelegationTarget
         <*> pOutputFile

diff --git a/cardano-cli/src/Cardano/CLI/Shelley/Run/StakeAddress.hs b/cardano-cli/src/Cardano/CLI/Shelley/Run/StakeAddress.hs
@@ -49,8 +49,8 @@ runStakeAddressCmd (StakeAddressBuild stakeVerifier nw mOutputFp) =
   runStakeAddressBuild stakeVerifier nw mOutputFp
 runStakeAddressCmd (StakeRegistrationCert stakeIdentifier outputFp) =
   runStakeCredentialRegistrationCert stakeIdentifier outputFp
-runStakeAddressCmd (StakeCredentialDelegationCert stakeIdentifier stkPoolVerKeyHashOrFp outputFp) =
-  runStakeCredentialDelegationCert stakeIdentifier stkPoolVerKeyHashOrFp outputFp
+runStakeAddressCmd (StakeCredentialPoolDelegationCert stakeIdentifier stkPoolVerKeyHashOrFp outputFp) =
+  runStakeCredentialPoolDelegationCert stakeIdentifier stkPoolVerKeyHashOrFp outputFp
 runStakeAddressCmd (StakeCredentialDeRegistrationCert stakeIdentifier outputFp) =
   runStakeCredentialDeRegistrationCert stakeIdentifier outputFp
 
@@ -127,15 +127,15 @@ runStakeCredentialRegistrationCert stakeIdentifier oFp = do
   regCertDesc = "Stake Address Registration Certificate"
 
 
-runStakeCredentialDelegationCert
+runStakeCredentialPoolDelegationCert
   :: StakeIdentifier
   -- ^ Delegator stake verification key, verification key file or script file.
   -> PoolDelegationTarget
   -- ^ Delegatee stake pool verification key or verification key file or
   -- verification key hash.
   -> File Certificate Out
   -> ExceptT ShelleyStakeAddressCmdError IO ()
-runStakeCredentialDelegationCert stakeVerifier delegationTarget outFp =
+runStakeCredentialPoolDelegationCert stakeVerifier delegationTarget outFp =
   case delegationTarget of
     PoolDelegationTarget poolVKeyOrHashOrFile -> do
       poolStakeVKeyHash <- lift (readVerificationKeyOrHashOrFile AsStakePoolKey poolVKeyOrHashOrFile)