Merge pull request #250 from input-output-hk/mgalazyn/feature/update-…

…description-fields-on-deleg-certs

#221 Update description fields on delegation certificates

cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/DRep.hs

@@ -78,8 +78,7 @@ runGovernanceDelegationCertificateCmd stakeIdentifier delegationTarget outFp = d
       delegatee <- toLedgerDelegatee target
       let req = StakeDelegationRequirementsConwayOnwards cOnwards stakeCred delegatee
           delegCert = makeStakeAddressDelegationCertificate req
-          -- TODO: Conway era - update description to say if its delegating voting stake or "regular" stake
-          description = Just @TextEnvelopeDescr "Stake Address Delegation Certificate"
+          description = Just $ toDelegateeEnvelope delegatee
       firstExceptT DelegationCertificateWriteFileError
         . newExceptT
         $ writeLazyByteStringFile outFp
@@ -125,6 +124,12 @@ toLedgerDelegatee t =
       conwayEraOnwardsConstraints cOn $
         right $ Ledger.DelegVote $ Ledger.DRepCredential $ Ledger.ScriptHashObj scriptHash
 
+toDelegateeEnvelope :: Ledger.Delegatee ledgerera -> TextEnvelopeDescr
+toDelegateeEnvelope = \case
+  Ledger.DelegStake{} -> "Stake Delegation Certificate"
+  Ledger.DelegVote{} -> "Vote Delegation Certificate"
+  Ledger.DelegStakeVote{} -> "Stake and Vote Delegation Certificate"
+
 runGovernanceDRepIdCmd :: ()
   => ConwayEraOnwards era
   -> VerificationKeyOrFile DRepKey