prettify

IntersectMBO · Sep 30, 2024 · ec3d402 · ec3d402
1 parent 8e8c070
commit ec3d402
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 12 deletions.
diff --git 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
@@ -78,4 +78,3 @@ renderStakeAddressCmds = \case
   StakeAddressStakeDelegationCertificateCmd{} -> "stake-address stake-delegation-certificate"
   StakeAddressVoteDelegationCertificateCmd{} -> "stake-address vote-delegation-certificate"
   StakeAddressRegistrationAndDelegationCertificateCmd{} -> "stake-address registration-and-stake-delegation-certificate"
-
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/StakeAddress.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/StakeAddress.hs
@@ -228,4 +228,3 @@ pStakeAddressRegistrationAndDelegationCertificateCmd era = do
       [ "Create a stake address registration and delegation certificate, which when submitted in a transaction "
       , "registers a stake address and delegates stake to a stake pool."
       ]
-
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/StakeAddress.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/StakeAddress.hs
@@ -69,7 +69,7 @@ runStakeAddressCmds = \case
   StakeAddressDeregistrationCertificateCmd sbe stakeIdentifier mDeposit outputFp ->
     runStakeAddressDeregistrationCertificateCmd sbe stakeIdentifier mDeposit outputFp
   StakeAddressRegistrationAndDelegationCertificateCmd w stakeIdentifier poolVKeyOrHashOrFile deposit outFp ->
-    runStakeAddressRegistrationAndDelegationCertificateCmd w stakeIdentifier poolVKeyOrHashOrFile deposit outFp 
+    runStakeAddressRegistrationAndDelegationCertificateCmd w stakeIdentifier poolVKeyOrHashOrFile deposit outFp
 
 runStakeAddressKeyGenCmd
   :: ()
@@ -338,21 +338,21 @@ runStakeAddressRegistrationAndDelegationCertificateCmd
   -> Lovelace
   -> File () Out
   -> ExceptT StakeAddressCmdError IO ()
-runStakeAddressRegistrationAndDelegationCertificateCmd w stakeVerifier poolVKeyOrHashOrFile deposit outFp = 
+runStakeAddressRegistrationAndDelegationCertificateCmd w stakeVerifier poolVKeyOrHashOrFile deposit outFp =
   conwayEraOnwardsConstraints w $ do
     StakePoolKeyHash poolStakeVKeyHash <-
       modifyError StakeAddressCmdReadKeyFileError $
         readVerificationKeyOrHashOrFile AsStakePoolKey poolVKeyOrHashOrFile
-  
+
     stakeCred <-
       getStakeCredentialFromIdentifier stakeVerifier
-        & firstExceptT StakeAddressCmdStakeCredentialError 
-  
+        & firstExceptT StakeAddressCmdStakeCredentialError
+
     let deleg = L.DelegStake poolStakeVKeyHash
 
     let certificate = makeStakeAddressAndDRepDelegationCertificate w stakeCred deleg deposit
 
     firstExceptT StakeAddressCmdWriteFileError
-        . newExceptT
-        $ writeLazyByteStringFile outFp
-        $ textEnvelopeToJSON (Just @TextEnvelopeDescr "Stake address registration and stake delegation certificate") certificate
+      . newExceptT
+      $ writeLazyByteStringFile outFp
+      $ 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
@@ -155,4 +155,4 @@ hprop_golden_conway_stakeaddress_register_and_delegate_pool =
         , certFile
         ]
 
-    H.diffFileVsGoldenFile certFile certGold
+    H.diffFileVsGoldenFile certFile certGold