diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Commands/StakeAddress.hs b/cardano-cli/src/Cardano/CLI/EraBased/Commands/StakeAddress.hs index 4e374f942..4604a3d59 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Commands/StakeAddress.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Commands/StakeAddress.hs @@ -65,7 +65,7 @@ data StakeAddressCmds era (VerificationKeyOrHashOrFile StakePoolKey) Coin (File () Out) - deriving (Show) + deriving Show renderStakeAddressCmds :: StakeAddressCmds era -> Text renderStakeAddressCmds = \case diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/StakeAddress.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/StakeAddress.hs index 0baf79e00..682f5c4d5 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/StakeAddress.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/StakeAddress.hs @@ -68,8 +68,18 @@ runStakeAddressCmds = \case runStakeAddressVoteDelegationCertificateCmd w stakeIdentifier voteDelegationTarget outputFp StakeAddressDeregistrationCertificateCmd sbe stakeIdentifier mDeposit outputFp -> runStakeAddressDeregistrationCertificateCmd sbe stakeIdentifier mDeposit outputFp - StakeAddressRegistrationAndDelegationCertificateCmd w stakeIdentifier poolVKeyOrHashOrFile deposit outFp -> - runStakeAddressRegistrationAndDelegationCertificateCmd w stakeIdentifier poolVKeyOrHashOrFile deposit outFp + StakeAddressRegistrationAndDelegationCertificateCmd + w + stakeIdentifier + poolVKeyOrHashOrFile + deposit + outFp -> + runStakeAddressRegistrationAndDelegationCertificateCmd + w + stakeIdentifier + poolVKeyOrHashOrFile + deposit + outFp runStakeAddressKeyGenCmd :: () @@ -355,4 +365,6 @@ runStakeAddressRegistrationAndDelegationCertificateCmd w stakeVerifier poolVKeyO firstExceptT StakeAddressCmdWriteFileError . newExceptT $ writeLazyByteStringFile outFp - $ textEnvelopeToJSON (Just @TextEnvelopeDescr "Stake address registration and stake delegation certificate") certificate + $ textEnvelopeToJSON + (Just @TextEnvelopeDescr "Stake address registration and stake delegation certificate") + certificate diff --git a/cardano-cli/test/cardano-cli-golden/Test/Golden/Governance/StakeAddress.hs b/cardano-cli/test/cardano-cli-golden/Test/Golden/Governance/StakeAddress.hs index 2584a6a16..348f537e4 100644 --- a/cardano-cli/test/cardano-cli-golden/Test/Golden/Governance/StakeAddress.hs +++ b/cardano-cli/test/cardano-cli-golden/Test/Golden/Governance/StakeAddress.hs @@ -138,7 +138,8 @@ hprop_golden_conway_stakeaddress_register_and_delegate_pool = vkeyPool <- noteInputFile "test/cardano-cli-golden/files/input/conway/poolCold.vkey" certFile <- H.noteTempFile tempDir "cert" certGold <- - H.note "test/cardano-cli-golden/files/golden/governance/stakeaddress/registerAddressDelegateToPool.cert" + H.note + "test/cardano-cli-golden/files/golden/governance/stakeaddress/registerAddressDelegateToPool.cert" void $ execCardanoCLI