Format Query.hs

IntersectMBO · Dec 20, 2024 · c342bbe · c342bbe
1 parent 93ce7d7
commit c342bbe
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs
@@ -752,8 +752,8 @@ runQueryRefScriptSizeCmd
         & onLeft left
 
 newtype RefInputScriptSize = RefInputScriptSize {refInputScriptSize :: Int}
-  deriving Generic
-  deriving anyclass ToJSON
+  deriving (Generic)
+  deriving anyclass (ToJSON)
 
 instance Pretty RefInputScriptSize where
   pretty (RefInputScriptSize s) = "Reference inputs scripts size is" <+> pretty s <+> "bytes."
@@ -1345,7 +1345,6 @@ runQueryStakeDistributionCmd
         & onLeft (left . QueryCmdAcquireFailure)
         & onLeft left
 
-
 writeStakeDistribution
   :: OutputFormatJsonOrText
   -> Maybe (File () Out)
@@ -1955,7 +1954,8 @@ easyRunQuerySystemStart = lift querySystemStart & onLeft (left . QueryCmdUnsuppo
 easyRunQuery
   :: ()
   => Monad m
-  => m (Either UnsupportedNtcVersionError (Either Consensus.EraMismatch a)) -> ExceptT QueryCmdError m a
+  => m (Either UnsupportedNtcVersionError (Either Consensus.EraMismatch a))
+  -> ExceptT QueryCmdError m a
 easyRunQuery q =
   lift q
     & onLeft (left . QueryCmdUnsupportedNtcVersion)