Run stylish-haskell version 0.14.5.0.

cardano-foundation · Nov 28, 2023 · 022e1c7 · 022e1c7
1 parent 3580f9b
commit 022e1c7
Show file tree

Hide file tree

Showing 41 changed files with 87 additions and 90 deletions.
diff --git a/lib/address-derivation-discovery/lib/Cardano/Wallet/Address/Derivation.hs b/lib/address-derivation-discovery/lib/Cardano/Wallet/Address/Derivation.hs
@@ -155,8 +155,8 @@ import Data.Text.Class
     , toTextFromBoundedEnum
     )
 import Data.Type.Equality
-    ( (:~:) (..)
-    , testEquality
+    ( testEquality
+    , (:~:) (..)
     )
 import Data.Word
     ( Word32

diff --git a/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx.hs b/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx.hs
@@ -237,8 +237,8 @@ import Data.Maybe
     , isJust
     )
 import Data.Type.Equality
-    ( (:~:) (Refl)
-    , TestEquality (testEquality)
+    ( TestEquality (testEquality)
+    , (:~:) (Refl)
     )
 import Data.Typeable
     ( Typeable

diff --git a/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx/Balance.hs b/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx/Balance.hs
@@ -184,8 +184,8 @@ import Data.Semigroup.Cancellative
     ( Reductive ((</>))
     )
 import Data.Type.Equality
-    ( (:~:) (..)
-    , testEquality
+    ( testEquality
+    , (:~:) (..)
     )
 import Fmt
     ( Buildable
@@ -290,18 +290,18 @@ import qualified Cardano.Wallet.Primitive.Ledger.Convert as Convert
 import qualified Cardano.Wallet.Primitive.Types.Address as W
     ( Address
     )
-import qualified Cardano.Wallet.Primitive.Types.Coin as W.Coin
 import qualified Cardano.Wallet.Primitive.Types.Coin as W
     ( Coin (..)
     )
-import qualified Cardano.Wallet.Primitive.Types.TokenBundle as W.TokenBundle
+import qualified Cardano.Wallet.Primitive.Types.Coin as W.Coin
 import qualified Cardano.Wallet.Primitive.Types.TokenBundle as W
     ( TokenBundle (..)
     )
-import qualified Cardano.Wallet.Primitive.Types.TokenMap as W.TokenMap
+import qualified Cardano.Wallet.Primitive.Types.TokenBundle as W.TokenBundle
 import qualified Cardano.Wallet.Primitive.Types.TokenMap as W
     ( AssetId (..)
     )
+import qualified Cardano.Wallet.Primitive.Types.TokenMap as W.TokenMap
 import qualified Cardano.Wallet.Primitive.Types.TokenQuantity as W
     ( TokenQuantity (..)
     )
@@ -313,14 +313,14 @@ import qualified Cardano.Wallet.Primitive.Types.Tx.Constraints as W
 import qualified Cardano.Wallet.Primitive.Types.Tx.TxIn as W
     ( TxIn
     )
-import qualified Cardano.Wallet.Primitive.Types.Tx.TxOut as W.TxOut
 import qualified Cardano.Wallet.Primitive.Types.Tx.TxOut as W
     ( TxOut (..)
     )
-import qualified Cardano.Wallet.Primitive.Types.UTxO as W.UTxO
+import qualified Cardano.Wallet.Primitive.Types.Tx.TxOut as W.TxOut
 import qualified Cardano.Wallet.Primitive.Types.UTxO as W
     ( UTxO (..)
     )
+import qualified Cardano.Wallet.Primitive.Types.UTxO as W.UTxO
 import qualified Data.Foldable as F
 import qualified Data.List as L
 import qualified Data.Map as Map

diff --git a/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx/Balance/CoinSelection.hs b/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx/Balance/CoinSelection.hs
@@ -128,10 +128,10 @@ import qualified Cardano.Wallet.Primitive.Types.Address as W
 import qualified Cardano.Wallet.Primitive.Types.Coin as W
     ( Coin
     )
-import qualified Cardano.Wallet.Primitive.Types.TokenBundle as W.TokenBundle
 import qualified Cardano.Wallet.Primitive.Types.TokenBundle as W
     ( TokenBundle (..)
     )
+import qualified Cardano.Wallet.Primitive.Types.TokenBundle as W.TokenBundle
 import qualified Cardano.Wallet.Primitive.Types.TokenMap as W
     ( AssetId
     , TokenMap

diff --git a/lib/balance-tx/test/spec/Internal/Cardano/Write/Tx/Balance/TokenBundleSizeSpec.hs b/lib/balance-tx/test/spec/Internal/Cardano/Write/Tx/Balance/TokenBundleSizeSpec.hs
@@ -68,10 +68,10 @@ import Test.QuickCheck
     , (==>)
     )
 
-import qualified Cardano.Wallet.Primitive.Types.TokenBundle as W.TokenBundle
 import qualified Cardano.Wallet.Primitive.Types.TokenBundle as W
     ( TokenBundle
     )
+import qualified Cardano.Wallet.Primitive.Types.TokenBundle as W.TokenBundle
 import qualified Cardano.Wallet.Primitive.Types.TokenBundle.Gen as W
 import qualified Cardano.Wallet.Primitive.Types.Tx.Constraints as W
     ( TxSize (..)

diff --git a/lib/coin-selection/lib/Cardano/CoinSelection/UTxOIndex/Internal.hs b/lib/coin-selection/lib/Cardano/CoinSelection/UTxOIndex/Internal.hs
@@ -145,14 +145,14 @@ import GHC.Generics
     ( Generic
     )
 
-import qualified Cardano.Wallet.Primitive.Types.TokenBundle as W.TokenBundle
 import qualified Cardano.Wallet.Primitive.Types.TokenBundle as W
     ( TokenBundle
     )
-import qualified Cardano.Wallet.Primitive.Types.TokenMap as W.TokenMap
+import qualified Cardano.Wallet.Primitive.Types.TokenBundle as W.TokenBundle
 import qualified Cardano.Wallet.Primitive.Types.TokenMap as W
     ( AssetId
     )
+import qualified Cardano.Wallet.Primitive.Types.TokenMap as W.TokenMap
 import qualified Data.Foldable as F
 import qualified Data.List as L
 import qualified Data.List.NonEmpty as NE

diff --git a/lib/delta-table/src/Database/Persist/Delta.hs b/lib/delta-table/src/Database/Persist/Delta.hs
@@ -60,10 +60,10 @@ import Database.Persist.Sql
     , toSqlKey
     )
 import Database.Schema
-    ( (:.) (..)
-    , Col (..)
+    ( Col (..)
     , IsRow
     , Primary (..)
+    , (:.) (..)
     )
 import Say
     ( say

diff --git a/lib/delta-table/src/Demo/Database.hs b/lib/delta-table/src/Demo/Database.hs
@@ -93,10 +93,10 @@ import Database.Persist.TH
     , sqlSettings
     )
 import Database.Schema
-    ( (:.) (..)
-    , Col (..)
+    ( Col (..)
     , Primary
     , Table (..)
+    , (:.) (..)
     )
 import GHC.Generics
     ( Generic

diff --git a/lib/primitive/lib/Cardano/Wallet/Primitive/Ledger/Read/Tx/Features/Mint.hs b/lib/primitive/lib/Cardano/Wallet/Primitive/Ledger/Read/Tx/Features/Mint.hs
@@ -71,9 +71,9 @@ import Cardano.Wallet.Primitive.Types.TokenPolicy
     ( TokenPolicyId (..)
     )
 import Cardano.Wallet.Read.Eras
-    ( (:*:) (..)
-    , EraFun (..)
+    ( EraFun (..)
     , K (..)
+    , (:*:) (..)
     )
 import Cardano.Wallet.Read.Tx.Mint
     ( Mint (..)

diff --git a/lib/primitive/lib/Cardano/Wallet/Primitive/Ledger/Shelley.hs b/lib/primitive/lib/Cardano/Wallet/Primitive/Ledger/Shelley.hs
@@ -304,8 +304,8 @@ import Data.Quantity
     , mkPercentage
     )
 import Data.Type.Equality
-    ( (:~:) (..)
-    , testEquality
+    ( testEquality
+    , (:~:) (..)
     )
 import Data.Word
     ( Word16

diff --git a/lib/primitive/lib/Cardano/Wallet/Primitive/Types/Tx/SealedTx.hs b/lib/primitive/lib/Cardano/Wallet/Primitive/Types/Tx/SealedTx.hs
@@ -83,8 +83,8 @@ import Data.Text
     ( Text
     )
 import Data.Type.Equality
-    ( (:~:) (..)
-    , testEquality
+    ( testEquality
+    , (:~:) (..)
     )
 import Fmt
     ( Buildable (..)

diff --git a/lib/read/lib/Cardano/Wallet/Read/Block/Txs.hs b/lib/read/lib/Cardano/Wallet/Read/Block/Txs.hs
@@ -18,8 +18,8 @@ import Cardano.Wallet.Read.Block
     ( Block (..)
     )
 import Cardano.Wallet.Read.Eras
-    ( (:.:) (..)
-    , EraFun (..)
+    ( EraFun (..)
+    , (:.:) (..)
     )
 import Cardano.Wallet.Read.Tx
     ( Tx (..)

diff --git a/lib/read/lib/Cardano/Wallet/Read/Eras.hs b/lib/read/lib/Cardano/Wallet/Read/Eras.hs
@@ -74,9 +74,9 @@ import Cardano.Wallet.Read.Eras.KnownEras
     , knownEraIndices
     )
 import Generics.SOP
-    ( (:.:) (..)
-    , K (..)
+    ( K (..)
     , unK
+    , (:.:) (..)
     )
 import GHC.Generics
     ( (:*:) (..)

diff --git a/lib/read/lib/Cardano/Wallet/Read/Eras/EraFun.hs b/lib/read/lib/Cardano/Wallet/Read/Eras/EraFun.hs
@@ -90,11 +90,11 @@ import Control.Category
     ( Category (..)
     )
 import Generics.SOP
-    ( (:.:) (..)
-    , K (..)
+    ( K (..)
     , NP
     , unComp
     , unK
+    , (:.:) (..)
     )
 import Generics.SOP.Classes
 import Generics.SOP.NP

diff --git a/lib/read/lib/Cardano/Wallet/Read/Eras/EraValue.hs b/lib/read/lib/Cardano/Wallet/Read/Eras/EraValue.hs
@@ -76,8 +76,7 @@ import Data.Generics.Internal.VL
     , prism
     )
 import Generics.SOP
-    ( (:.:)
-    , All
+    ( All
     , Compose
     , K (..)
     , NP (..)
@@ -87,6 +86,7 @@ import Generics.SOP
     , injections
     , unComp
     , unK
+    , (:.:)
     )
 import Generics.SOP.Classes
 import Generics.SOP.NP

diff --git a/lib/read/lib/Cardano/Wallet/Read/Tx/CBOR.hs b/lib/read/lib/Cardano/Wallet/Read/Tx/CBOR.hs
@@ -41,13 +41,13 @@ import Cardano.Ledger.Binary.Decoding
     , shelleyProtVer
     )
 import Cardano.Wallet.Read.Eras
-    ( (:.:) (..)
-    , EraFun (..)
+    ( EraFun (..)
     , EraValue
     , K (..)
     , applyEraFun
     , extractEraValue
     , sequenceEraValue
+    , (:.:) (..)
     )
 import Cardano.Wallet.Read.Tx
     ( Tx (..)

diff --git a/lib/test-utils/src/Test/QuickCheck/Extra.hs b/lib/test-utils/src/Test/QuickCheck/Extra.hs
@@ -116,10 +116,10 @@ import Fmt
     )
 import Generics.SOP
 import GHC.TypeNats
-    ( type (<=)
-    , KnownNat
+    ( KnownNat
     , Nat
     , natVal
+    , type (<=)
     )
 import Numeric.Natural
     ( Natural

diff --git a/lib/wai-middleware-logging/test/Network/Wai/Middleware/LoggingSpec.hs b/lib/wai-middleware-logging/test/Network/Wai/Middleware/LoggingSpec.hs
@@ -98,9 +98,7 @@ import Network.Wai.Middleware.Logging
     , withApiLogger
     )
 import Servant
-    ( (:<|>) (..)
-    , (:>)
-    , Application
+    ( Application
     , DeleteNoContent
     , Get
     , JSON
@@ -114,6 +112,8 @@ import Servant
     , err503
     , serve
     , throwError
+    , (:<|>) (..)
+    , (:>)
     )
 import Servant.Server
     ( Handler

diff --git a/lib/wallet-e2e/src/Cardano/Wallet/Spec/Effect/Assert.hs b/lib/wallet-e2e/src/Cardano/Wallet/Spec/Effect/Assert.hs
@@ -16,9 +16,9 @@ import Cardano.Wallet.Spec.Effect.Trace
     , trace
     )
 import Effectful
-    ( (:>)
-    , Eff
+    ( Eff
     , Effect
+    , (:>)
     )
 import Effectful.Dispatch.Dynamic
     ( interpret

diff --git a/lib/wallet-e2e/src/Cardano/Wallet/Spec/Effect/Http.hs b/lib/wallet-e2e/src/Cardano/Wallet/Spec/Effect/Http.hs
@@ -14,10 +14,10 @@ import Control.Exception
     ( try
     )
 import Effectful
-    ( (:>)
-    , Eff
+    ( Eff
     , Effect
     , IOE
+    , (:>)
     )
 import Effectful.Dispatch.Dynamic
     ( interpret

diff --git a/lib/wallet-e2e/src/Cardano/Wallet/Spec/Effect/Query.hs b/lib/wallet-e2e/src/Cardano/Wallet/Spec/Effect/Query.hs
@@ -57,9 +57,9 @@ import Cardano.Wallet.Spec.Network.Configured
     ( ConfiguredNetwork (..)
     )
 import Effectful
-    ( (:>)
-    , Eff
+    ( Eff
     , Effect
+    , (:>)
     )
 import Effectful.Dispatch.Dynamic
     ( interpret

diff --git a/lib/wallet-e2e/src/Cardano/Wallet/Spec/Effect/Random.hs b/lib/wallet-e2e/src/Cardano/Wallet/Spec/Effect/Random.hs
@@ -28,9 +28,9 @@ import Data.Tagged
     ( Tagged (..)
     )
 import Effectful
-    ( (:>)
-    , Eff
+    ( Eff
     , Effect
+    , (:>)
     )
 import Effectful.Dispatch.Dynamic
     ( interpret

diff --git a/lib/wallet-e2e/src/Cardano/Wallet/Spec/Effect/Timeout.hs b/lib/wallet-e2e/src/Cardano/Wallet/Spec/Effect/Timeout.hs
@@ -21,10 +21,10 @@ import Data.Time.TimeSpan
     , timeoutTS
     )
 import Effectful
-    ( (:>)
-    , Eff
+    ( Eff
     , Effect
     , IOE
+    , (:>)
     )
 import Effectful.Dispatch.Dynamic
     ( interpret

diff --git a/lib/wallet-e2e/src/Cardano/Wallet/Spec/Stories/Language.hs b/lib/wallet-e2e/src/Cardano/Wallet/Spec/Stories/Language.hs
@@ -1,8 +1,8 @@
 module Cardano.Wallet.Spec.Stories.Language (FxStory) where
 
 import Effectful
-    ( (:>)
-    , Eff
+    ( Eff
+    , (:>)
     )
 
 type FxStory otherEffects knownEffects a =

diff --git a/lib/wallet/api/http/Cardano/Wallet/Api.hs b/lib/wallet/api/http/Cardano/Wallet/Api.hs
@@ -330,14 +330,14 @@ import GHC.Generics
     ( Generic
     )
 import Servant.API
-    ( (:<|>)
-    , (:>)
-    , Capture
+    ( Capture
     , JSON
     , OctetStream
     , QueryFlag
     , QueryParam
     , ReqBody
+    , (:<|>)
+    , (:>)
     )
 import Servant.API.Verbs
     ( DeleteAccepted

diff --git a/lib/wallet/api/http/Cardano/Wallet/Api/Client.hs b/lib/wallet/api/http/Cardano/Wallet/Api/Client.hs
@@ -137,9 +137,9 @@ import Data.Text
     ( Text
     )
 import Servant
-    ( (:<|>) (..)
+    ( NoContent
+    , (:<|>) (..)
     , (:>)
-    , NoContent
     )
 import Servant.Client
     ( ClientM

diff --git a/lib/wallet/api/http/Cardano/Wallet/Api/Http/Server.hs b/lib/wallet/api/http/Cardano/Wallet/Api/Http/Server.hs
@@ -265,11 +265,11 @@ import Network.Ntp
     ( NtpClient
     )
 import Servant
-    ( (:<|>) (..)
-    , Handler (..)
+    ( Handler (..)
     , NoContent (..)
     , Server
     , err400
+    , (:<|>) (..)
     )
 import Servant.Server
     ( ServerError (..)