Style fixes

Author: Jimbo4350

cardano-cli/src/Cardano/CLI/EraIndependent/Cip/Cip129/Option.hs

@@ -7,7 +7,7 @@ import Cardano.CLI.EraIndependent.Cip.Command
 import Cardano.CLI.EraIndependent.Cip.Common
 import Cardano.CLI.Parser
 
-import Control.Applicative
+import Data.Foldable
 import Options.Applicative qualified as Opt
 
 -- Add sub parsers

cardano-cli/src/Cardano/CLI/Read/Committee/ColdKey.hs

@@ -25,7 +25,8 @@ import Data.Text (Text)
 import Data.Validation
 
 data AnyCommitteeColdVerificationKey where
-  AnyCommitteeColdVerificationKey :: VerificationKey CommitteeColdKey -> AnyCommitteeColdVerificationKey
+  AnyCommitteeColdVerificationKey
+    :: VerificationKey CommitteeColdKey -> AnyCommitteeColdVerificationKey
   AnyCommitteeColdExtendedVerificationKey
     :: VerificationKey CommitteeColdExtendedKey -> AnyCommitteeColdVerificationKey
 

cardano-cli/src/Cardano/CLI/Read/DRep.hs

@@ -1,10 +1,9 @@
-
+{-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE StandaloneDeriving #-}
-{-# LANGUAGE FlexibleInstances #-}
 
 module Cardano.CLI.Read.DRep
-  ( AnyDrepVerificationKey(..)
+  ( AnyDrepVerificationKey (..)
 
     -- * Read bech32 or hex encoded DRep verification key
   , readDRepBech32VerificationKeyText
@@ -15,40 +14,49 @@ module Cardano.CLI.Read.DRep
   )
 where
 
-import Prelude
 import Cardano.Api
-import Data.Validation
-import Data.Text (Text)
-import qualified Cardano.Prelude as Text
-import Cardano.CLI.Read
 
+import Cardano.CLI.Read
+import Cardano.Prelude qualified as Text
 
+import Prelude
 
+import Data.Text (Text)
+import Data.Validation
 
-data AnyDrepVerificationKey where 
-    AnyDrepVerificationKey :: VerificationKey DRepKey -> AnyDrepVerificationKey
-    AnyDrepExtendedVerificationKey :: VerificationKey DRepExtendedKey -> AnyDrepVerificationKey
+data AnyDrepVerificationKey where
+  AnyDrepVerificationKey :: VerificationKey DRepKey -> AnyDrepVerificationKey
+  AnyDrepExtendedVerificationKey :: VerificationKey DRepExtendedKey -> AnyDrepVerificationKey
 
 deriving instance Show AnyDrepVerificationKey
 
 readDRepBech32VerificationKeyText :: Text -> Validation [Bech32DecodeError] AnyDrepVerificationKey
-readDRepBech32VerificationKeyText drep = 
-    let vkey = liftError return $ AnyDrepVerificationKey <$> deserialiseFromBech32 (AsVerificationKey AsDRepKey) drep
-        extendedVkey = liftError return $ AnyDrepExtendedVerificationKey <$> deserialiseFromBech32 (AsVerificationKey AsDRepExtendedKey) drep
-    in vkey <> extendedVkey 
+readDRepBech32VerificationKeyText drep =
+  let vkey =
+        liftError return $
+          AnyDrepVerificationKey <$> deserialiseFromBech32 (AsVerificationKey AsDRepKey) drep
+      extendedVkey =
+        liftError return $
+          AnyDrepExtendedVerificationKey <$> deserialiseFromBech32 (AsVerificationKey AsDRepExtendedKey) drep
+   in vkey <> extendedVkey
 
 readDRepHexVerificationKeyText :: Text -> Validation [RawBytesHexError] AnyDrepVerificationKey
-readDRepHexVerificationKeyText drepText = 
-    let drepBs = Text.encodeUtf8 drepText
-        vkey = liftError return $ AnyDrepVerificationKey <$> deserialiseFromRawBytesHex (AsVerificationKey AsDRepKey) drepBs
-        extendedVkey = liftError return $ AnyDrepExtendedVerificationKey <$> deserialiseFromRawBytesHex (AsVerificationKey AsDRepExtendedKey) drepBs
-    in vkey <> extendedVkey 
-
-
-readDrepVerificationKeyFile 
+readDRepHexVerificationKeyText drepText =
+  let drepBs = Text.encodeUtf8 drepText
+      vkey =
+        liftError return $
+          AnyDrepVerificationKey <$> deserialiseFromRawBytesHex (AsVerificationKey AsDRepKey) drepBs
+      extendedVkey =
+        liftError return $
+          AnyDrepExtendedVerificationKey
+            <$> deserialiseFromRawBytesHex (AsVerificationKey AsDRepExtendedKey) drepBs
+   in vkey <> extendedVkey
+
+readDrepVerificationKeyFile
   :: FileOrPipe -> IO (Either (FileError TextEnvelopeError) AnyDrepVerificationKey)
-readDrepVerificationKeyFile = readFileOrPipeTextEnvelopeAnyOf types 
+readDrepVerificationKeyFile = readFileOrPipeTextEnvelopeAnyOf types
  where
-  types = [ FromSomeType (AsVerificationKey AsDRepKey) AnyDrepVerificationKey
-          , FromSomeType (AsVerificationKey AsDRepExtendedKey) AnyDrepExtendedVerificationKey
-          ]
+  types =
+    [ FromSomeType (AsVerificationKey AsDRepKey) AnyDrepVerificationKey
+    , FromSomeType (AsVerificationKey AsDRepExtendedKey) AnyDrepExtendedVerificationKey
+    ]