Run .buildkite/check-stylish.sh.

cardano-foundation · Oct 19, 2023 · 4c69133 · 4c69133
1 parent 8dff60d
commit 4c69133
Show file tree

Hide file tree

Showing 544 changed files with 19,784 additions and 7,597 deletions.
diff --git a/lib/address-derivation-discovery/lib/Cardano/Byron/Codec/Cbor.hs b/lib/address-derivation-discovery/lib/Cardano/Byron/Codec/Cbor.hs
@@ -44,39 +44,62 @@ module Cardano.Byron.Codec.Cbor
 import Prelude
 
 import Cardano.Address.Derivation
-    ( XPub, xpubToBytes )
+    ( XPub
+    , xpubToBytes
+    )
 import Cardano.Wallet.Address.Derivation
-    ( Depth (..), DerivationType (..), Index (..) )
+    ( Depth (..)
+    , DerivationType (..)
+    , Index (..)
+    )
 import Cardano.Wallet.Primitive.Passphrase
-    ( Passphrase (..) )
+    ( Passphrase (..)
+    )
 import Cardano.Wallet.Primitive.Types.Address
-    ( Address (..) )
+    ( Address (..)
+    )
 import Cardano.Wallet.Primitive.Types.Hash
-    ( Hash (..) )
+    ( Hash (..)
+    )
 import Cardano.Wallet.Primitive.Types.ProtocolMagic
-    ( ProtocolMagic (..) )
+    ( ProtocolMagic (..)
+    )
 import Cardano.Wallet.Primitive.Types.Tx
-    ( unsafeCoinToTxOutCoinValue )
+    ( unsafeCoinToTxOutCoinValue
+    )
 import Cardano.Wallet.Primitive.Types.Tx.TxIn
-    ( TxIn (..) )
+    ( TxIn (..)
+    )
 import Cardano.Wallet.Primitive.Types.Tx.TxOut
-    ( TxOut (..) )
+    ( TxOut (..)
+    )
 import Control.Monad
-    ( replicateM, when )
+    ( replicateM
+    , when
+    )
 import Crypto.Error
-    ( CryptoError (..), CryptoFailable (..) )
+    ( CryptoError (..)
+    , CryptoFailable (..)
+    )
 import Crypto.Hash
-    ( hash )
+    ( hash
+    )
 import Crypto.Hash.Algorithms
-    ( Blake2b_224, SHA3_256 )
+    ( Blake2b_224
+    , SHA3_256
+    )
 import Data.ByteString
-    ( ByteString )
+    ( ByteString
+    )
 import Data.Digest.CRC32
-    ( crc32 )
+    ( crc32
+    )
 import Data.Either.Extra
-    ( eitherToMaybe )
+    ( eitherToMaybe
+    )
 import Data.Word
-    ( Word8 )
+    ( Word8
+    )
 
 import qualified Cardano.Wallet.Primitive.Types.Coin as Coin
 import qualified Cardano.Wallet.Primitive.Types.TokenBundle as TokenBundle

diff --git a/lib/address-derivation-discovery/lib/Cardano/Wallet/Address/Book.hs b/lib/address-derivation-discovery/lib/Cardano/Wallet/Address/Book.hs
@@ -37,19 +37,29 @@ import Cardano.Wallet.Address.Derivation
 import Cardano.Wallet.Address.Derivation.Shared
     ()
 import Cardano.Wallet.Address.Derivation.SharedKey
-    ( SharedKey (..) )
+    ( SharedKey (..)
+    )
 import Cardano.Wallet.Primitive.Types.Address
-    ( Address, AddressState (..) )
+    ( Address
+    , AddressState (..)
+    )
 import Control.Lens
-    ( Iso', iso, withIso )
+    ( Iso'
+    , iso
+    , withIso
+    )
 import Data.Kind
-    ( Type )
+    ( Type
+    )
 import Data.Map.Strict
-    ( Map )
+    ( Map
+    )
 import Data.Type.Equality
-    ( type (==) )
+    ( type (==)
+    )
 import Fmt
-    ( Buildable (..) )
+    ( Buildable (..)
+    )
 
 import qualified Cardano.Wallet.Address.Discovery.Random as Rnd
 import qualified Cardano.Wallet.Address.Discovery.Sequential as Seq

diff --git a/lib/address-derivation-discovery/lib/Cardano/Wallet/Address/Derivation.hs b/lib/address-derivation-discovery/lib/Cardano/Wallet/Address/Derivation.hs
@@ -80,47 +80,74 @@ module Cardano.Wallet.Address.Derivation
 import Prelude
 
 import Cardano.Address.Derivation
-    ( XPrv, XPub )
+    ( XPrv
+    , XPub
+    )
 import Cardano.Mnemonic
-    ( SomeMnemonic )
+    ( SomeMnemonic
+    )
 import Cardano.Wallet.Primitive.NetworkId
-    ( HasSNetworkId (..), SNetworkId )
+    ( HasSNetworkId (..)
+    , SNetworkId
+    )
 import Cardano.Wallet.Primitive.Passphrase.Types
-    ( Passphrase (..) )
+    ( Passphrase (..)
+    )
 import Cardano.Wallet.Primitive.Types.Address
-    ( Address (..) )
+    ( Address (..)
+    )
 import Cardano.Wallet.Primitive.Types.RewardAccount
-    ( RewardAccount (..) )
+    ( RewardAccount (..)
+    )
 import Control.Applicative
-    ( (<|>) )
+    ( (<|>)
+    )
 import Control.DeepSeq
-    ( NFData )
+    ( NFData
+    )
 import Control.Monad
-    ( (>=>) )
+    ( (>=>)
+    )
 import Data.Bifunctor
-    ( first )
+    ( first
+    )
 import Data.Bits
-    ( (.&.) )
+    ( (.&.)
+    )
 import Data.ByteArray
-    ( ByteArray, ByteArrayAccess )
+    ( ByteArray
+    , ByteArrayAccess
+    )
 import Data.ByteArray.Encoding
-    ( Base (..), convertFromBase, convertToBase )
+    ( Base (..)
+    , convertFromBase
+    , convertToBase
+    )
 import Data.ByteString
-    ( ByteString )
+    ( ByteString
+    )
 import Data.Kind
-    ( Type )
+    ( Type
+    )
 import Data.List.NonEmpty
-    ( NonEmpty (..) )
+    ( NonEmpty (..)
+    )
 import Data.Maybe
-    ( fromMaybe )
+    ( fromMaybe
+    )
 import Data.Proxy
-    ( Proxy (..) )
+    ( Proxy (..)
+    )
 import Data.Scientific
-    ( Scientific, toBoundedInteger )
+    ( Scientific
+    , toBoundedInteger
+    )
 import Data.String
-    ( fromString )
+    ( fromString
+    )
 import Data.Text
-    ( Text )
+    ( Text
+    )
 import Data.Text.Class
     ( CaseStyle (..)
     , FromText (..)
@@ -130,23 +157,36 @@ import Data.Text.Class
     , toTextFromBoundedEnum
     )
 import Data.Type.Equality
-    ( (:~:) (..), testEquality )
+    ( (:~:) (..)
+    , testEquality
+    )
 import Data.Word
-    ( Word32, Word8 )
+    ( Word32
+    , Word8
+    )
 import Fmt
-    ( Buildable (..) )
+    ( Buildable (..)
+    )
 import GHC.Generics
-    ( Generic )
+    ( Generic
+    )
 import GHC.Stack
-    ( HasCallStack )
+    ( HasCallStack
+    )
 import GHC.TypeLits
-    ( Symbol )
+    ( Symbol
+    )
 import Quiet
-    ( Quiet (..) )
+    ( Quiet (..)
+    )
 import Safe
-    ( readMay, toEnumMay )
+    ( readMay
+    , toEnumMay
+    )
 import Type.Reflection
-    ( Typeable, typeRep )
+    ( Typeable
+    , typeRep
+    )
 
 import qualified Data.ByteString as BS
 import qualified Data.Text as T

diff --git a/lib/address-derivation-discovery/lib/Cardano/Wallet/Address/Derivation/Byron.hs b/lib/address-derivation-discovery/lib/Cardano/Wallet/Address/Derivation/Byron.hs
@@ -56,7 +56,10 @@ import Cardano.Crypto.Wallet
     , unXPub
     )
 import Cardano.Mnemonic
-    ( SomeMnemonic (..), entropyToBytes, mnemonicToEntropy )
+    ( SomeMnemonic (..)
+    , entropyToBytes
+    , mnemonicToEntropy
+    )
 import Cardano.Wallet.Address.Derivation
     ( Depth (..)
     , DerivationType (..)
@@ -67,31 +70,45 @@ import Cardano.Wallet.Address.Derivation
     , PaymentAddress (..)
     )
 import Cardano.Wallet.Primitive.NetworkId
-    ( SNetworkId (..) )
+    ( SNetworkId (..)
+    )
 import Cardano.Wallet.Primitive.Passphrase
-    ( Passphrase (..) )
+    ( Passphrase (..)
+    )
 import Cardano.Wallet.Primitive.Types.Address
-    ( Address (..) )
+    ( Address (..)
+    )
 import Cardano.Wallet.Primitive.Types.ProtocolMagic
-    ( magicSNetworkId )
+    ( magicSNetworkId
+    )
 import Control.DeepSeq
-    ( NFData )
+    ( NFData
+    )
 import Control.Lens
-    ( Lens, lens )
+    ( Lens
+    , lens
+    )
 import Crypto.Hash.Algorithms
-    ( SHA512 (..) )
+    ( SHA512 (..)
+    )
 import Crypto.Hash.Extra
-    ( blake2b256 )
+    ( blake2b256
+    )
 import Data.ByteArray
-    ( ScrubbedBytes )
+    ( ScrubbedBytes
+    )
 import Data.ByteString
-    ( ByteString )
+    ( ByteString
+    )
 import Data.Kind
-    ( Type )
+    ( Type
+    )
 import Data.Proxy
-    ( Proxy (..) )
+    ( Proxy (..)
+    )
 import GHC.Generics
-    ( Generic )
+    ( Generic
+    )
 
 import qualified Cardano.Byron.Codec.Cbor as CBOR
 import qualified Cardano.Wallet.Address.Derivation as W