Formatting fixes

IntersectMBO · Nov 21, 2024 · 5649c78 · 5649c78
1 parent 1e136a3
commit 5649c78
Show file tree

Hide file tree

Showing 8 changed files with 42 additions and 28 deletions.
diff --git a/cardano-cli/cardano-cli.cabal b/cardano-cli/cardano-cli.cabal
@@ -45,7 +45,6 @@ library
 
   if impl(ghc < 9.6)
     ghc-options: -Wno-redundant-constraints
-
   hs-source-dirs: src
   exposed-modules:
     Cardano.CLI.Byron.Commands

diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/Query.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/Query.hs
@@ -678,7 +678,8 @@ pQueryTreasuryValueCmd era envCli = do
       <*> optional pOutputFile
 
 pQueryNoArgCmdArgs
-  :: forall era. ()
+  :: forall era
+   . ()
   => ConwayEraOnwards era
   -> EnvCli
   -> Parser (QueryNoArgCmdArgs era)

diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance.hs
@@ -65,7 +65,8 @@ runGovernanceCmds = \case
     runGovernanceVoteCmds cmds
 
 runGovernanceMIRCertificatePayStakeAddrs
-  :: forall era. ShelleyToBabbageEra era
+  :: forall era
+   . ShelleyToBabbageEra era
   -> L.MIRPot
   -> [StakeAddress]
   -- ^ Stake addresses
@@ -104,7 +105,8 @@ runGovernanceMIRCertificatePayStakeAddrs w mirPot sAddrs rwdAmts oFp = do
   mirCertDesc = "Move Instantaneous Rewards Certificate"
 
 runGovernanceCreateMirCertificateTransferToTreasuryCmd
-  :: forall era. ()
+  :: forall era
+   . ()
   => ShelleyToBabbageEra era
   -> Lovelace
   -> File () Out
@@ -125,7 +127,8 @@ runGovernanceCreateMirCertificateTransferToTreasuryCmd w ll oFp = do
   mirCertDesc = "MIR Certificate Send To Treasury"
 
 runGovernanceCreateMirCertificateTransferToReservesCmd
-  :: forall era. ()
+  :: forall era
+   . ()
   => ShelleyToBabbageEra era
   -> Lovelace
   -> File () Out

diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs
@@ -78,7 +78,8 @@ runGovernanceActionViewCmd
         proposal
 
 runGovernanceActionInfoCmd
-  :: forall era. ()
+  :: forall era
+   . ()
   => GovernanceActionInfoCmdArgs era
   -> ExceptT GovernanceActionsError IO ()
 runGovernanceActionInfoCmd
@@ -118,7 +119,8 @@ fetchURLErrorToGovernanceActionError adt = withExceptT (GovernanceActionsProposa
 
 -- TODO: Conway era - update with new ledger types from cardano-ledger-conway-1.7.0.0
 runGovernanceActionCreateNoConfidenceCmd
-  :: forall era. ()
+  :: forall era
+   . ()
   => GovernanceActionCreateNoConfidenceCmdArgs era
   -> ExceptT GovernanceActionsError IO ()
 runGovernanceActionCreateNoConfidenceCmd
@@ -166,7 +168,8 @@ runGovernanceActionCreateNoConfidenceCmd
         writeFileTextEnvelope outFile (Just "Motion of no confidence proposal") proposalProcedure
 
 runGovernanceActionCreateConstitutionCmd
-  :: forall era. ()
+  :: forall era
+   . ()
   => GovernanceActionCreateConstitutionCmdArgs era
   -> ExceptT GovernanceActionsError IO ()
 runGovernanceActionCreateConstitutionCmd
@@ -226,7 +229,8 @@ runGovernanceActionCreateConstitutionCmd
 -- TODO: Conway era - After ledger bump update this function
 -- with the new ledger types
 runGovernanceActionUpdateCommitteeCmd
-  :: forall era. ()
+  :: forall era
+   . ()
   => GovernanceActionUpdateCommitteeCmdArgs era
   -> ExceptT GovernanceActionsError IO ()
 runGovernanceActionUpdateCommitteeCmd
@@ -302,7 +306,8 @@ runGovernanceActionUpdateCommitteeCmd
           proposal
 
 runGovernanceActionCreateProtocolParametersUpdateCmd
-  :: forall era. ()
+  :: forall era
+   . ()
   => Cmd.GovernanceActionProtocolParametersUpdateCmdArgs era
   -> ExceptT GovernanceActionsError IO ()
 runGovernanceActionCreateProtocolParametersUpdateCmd eraBasedPParams' = do
@@ -414,7 +419,8 @@ addCostModelsToEraBasedProtocolParametersUpdate
     ConwayEraBasedProtocolParametersUpdate common (aOn{alCostModels = SJust cmdls}) inB inC
 
 runGovernanceActionTreasuryWithdrawalCmd
-  :: forall era. ()
+  :: forall era
+   . ()
   => GovernanceActionTreasuryWithdrawalCmdArgs era
   -> ExceptT GovernanceActionsError IO ()
 runGovernanceActionTreasuryWithdrawalCmd
@@ -466,7 +472,8 @@ runGovernanceActionTreasuryWithdrawalCmd
         writeFileTextEnvelope outFile (Just "Treasury withdrawal proposal") proposal
 
 runGovernanceActionHardforkInitCmd
-  :: forall era. ()
+  :: forall era
+   . ()
   => GovernanceActionHardforkInitCmdArgs era
   -> ExceptT GovernanceActionsError IO ()
 runGovernanceActionHardforkInitCmd

diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/GenesisKeyDelegationCertificate.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/GenesisKeyDelegationCertificate.hs
@@ -15,7 +15,8 @@ import           Cardano.CLI.Types.Errors.GovernanceCmdError
 import           Cardano.CLI.Types.Key
 
 runGovernanceGenesisKeyDelegationCertificate
-  :: forall era. ShelleyToBabbageEra era
+  :: forall era
+   . ShelleyToBabbageEra era
   -> VerificationKeyOrHashOrFile GenesisKey
   -> VerificationKeyOrHashOrFile GenesisDelegateKey
   -> VerificationKeyOrHashOrFile VrfKey

diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Vote.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Vote.hs
@@ -41,7 +41,8 @@ runGovernanceVoteCmds = \case
       & firstExceptT CmdGovernanceVoteError
 
 runGovernanceVoteCreateCmd
-  :: forall era. ()
+  :: forall era
+   . ()
   => Cmd.GovernanceVoteCreateCmdArgs era
   -> ExceptT GovernanceVoteCmdError IO ()
 runGovernanceVoteCreateCmd
@@ -92,7 +93,8 @@ runGovernanceVoteCreateCmd
         writeFileTextEnvelope outFile Nothing votingProcedures
 
 runGovernanceVoteViewCmd
-  :: forall era. ()
+  :: forall era
+   . ()
   => Cmd.GovernanceVoteViewCmdArgs era
   -> ExceptT GovernanceVoteCmdError IO ()
 runGovernanceVoteViewCmd

diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/PlutusScriptDecodeError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/PlutusScriptDecodeError.hs
@@ -1,11 +1,13 @@
 {-# LANGUAGE LambdaCase #-}
 
-module Cardano.CLI.Types.Errors.PlutusScriptDecodeError 
-  ( PlutusScriptDecodeError(..)
-  ) where 
+module Cardano.CLI.Types.Errors.PlutusScriptDecodeError
+  ( PlutusScriptDecodeError (..)
+  )
+where
 
-import Cardano.Api
-import Data.Text (Text)
+import           Cardano.Api
+
+import           Data.Text (Text)
 
 data PlutusScriptDecodeError
   = PlutusScriptDecodeErrorUnknownVersion !Text
@@ -29,4 +31,4 @@ instance Error PlutusScriptDecodeError where
       "Version mismatch in code: script version that was read"
         <> pretty version
         <> " but tried to decode script version: "
-        <> pshow v
+        <> pshow v
diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/ScriptDataError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/ScriptDataError.hs
@@ -1,15 +1,14 @@
 {-# LANGUAGE LambdaCase #-}
 
-module Cardano.CLI.Types.Errors.ScriptDataError 
-  ( ScriptDataError(..)
+module Cardano.CLI.Types.Errors.ScriptDataError
+  ( ScriptDataError (..)
   , renderScriptDataError
-  ) where 
-
-
+  )
+where
 
 import           Cardano.Api
-import qualified Cardano.Binary as CBOR
 
+import qualified Cardano.Binary as CBOR
 
 data ScriptDataError
   = ScriptDataErrorFile (FileError ())
@@ -33,4 +32,4 @@ renderScriptDataError = \case
   ScriptDataErrorMetadataDecode fp decoderErr ->
     "Error decoding CBOR metadata at: " <> pshow fp <> " Error: " <> pshow decoderErr
   ScriptDataErrorJsonBytes e ->
-    prettyError e
+    prettyError e