Run stylish-haskell version 0.14.5.0.

cardano-foundation · Oct 31, 2023 · b18f000 · b18f000
1 parent 2ca2afe
commit b18f000
Show file tree

Hide file tree

Showing 36 changed files with 84 additions and 85 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
@@ -157,8 +157,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
@@ -238,8 +238,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
@@ -176,8 +176,8 @@ import Data.Semigroup.Cancellative
     ( Reductive ((</>))
     )
 import Data.Type.Equality
-    ( (:~:) (..)
-    , testEquality
+    ( testEquality
+    , (:~:) (..)
     )
 import Fmt
     ( Buildable
@@ -289,32 +289,32 @@ import qualified Cardano.Ledger.Core as Core
 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
     )
 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 Cardano.Wallet.Shelley.Compatibility.Ledger as Convert
 import qualified Data.Foldable as F
 import qualified Data.List as L

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/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/Eras.hs b/lib/read/lib/Cardano/Wallet/Read/Eras.hs
@@ -75,9 +75,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
@@ -63,15 +63,15 @@ import Control.Category
     ( Category (..)
     )
 import Generics.SOP
-    ( (:.:) (..)
-    , I (..)
+    ( I (..)
     , K (..)
     , NP
     , Proxy (Proxy)
     , productTypeFrom
     , productTypeTo
     , 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
@@ -75,8 +75,7 @@ import Data.Generics.Internal.VL
     , prism
     )
 import Generics.SOP
-    ( (:.:)
-    , All
+    ( All
     , Compose
     , K (..)
     , NP (..)
@@ -86,6 +85,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
@@ -327,14 +327,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
@@ -135,9 +135,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
@@ -264,11 +264,11 @@ import Network.Ntp
     ( NtpClient
     )
 import Servant
-    ( (:<|>) (..)
-    , Handler (..)
+    ( Handler (..)
     , NoContent (..)
     , Server
     , err400
+    , (:<|>) (..)
     )
 import Servant.Server
     ( ServerError (..)

diff --git a/lib/wallet/api/http/Cardano/Wallet/Api/Http/Server/Handlers/TxCBOR.hs b/lib/wallet/api/http/Cardano/Wallet/Api/Http/Server/Handlers/TxCBOR.hs
@@ -37,14 +37,14 @@ import Cardano.Wallet.Read
     ( Tx (..)
     )
 import Cardano.Wallet.Read.Eras
-    ( (:.:)
-    , EraFun (..)
+    ( EraFun (..)
     , K (..)
     , applyEraFun
     , extractEraValue
     , sequenceEraValue
     , (*&&&*)
     , (*.**)
+    , (:.:)
     )
 import Cardano.Wallet.Read.Eras.EraFun
     ( EraFunK (..)

diff --git a/lib/wallet/api/http/Cardano/Wallet/Api/Link.hs b/lib/wallet/api/http/Cardano/Wallet/Api/Link.hs
@@ -200,8 +200,7 @@ import Numeric.Natural
     ( Natural
     )
 import Servant.API
-    ( (:>)
-    , Capture'
+    ( Capture'
     , Header'
     , IsElem
     , NoContentVerb
@@ -210,6 +209,7 @@ import Servant.API
     , ReflectMethod (..)
     , ReqBody
     , Verb
+    , (:>)
     )
 import Servant.Links
     ( HasLink (..)

diff --git a/lib/wallet/mock-token-metadata/src/Cardano/Wallet/TokenMetadata/MockServer.hs b/lib/wallet/mock-token-metadata/src/Cardano/Wallet/TokenMetadata/MockServer.hs
@@ -106,10 +106,10 @@ import Network.Wai.Handler.Warp
     , withApplication
     )
 import Servant.API
-    ( (:>)
-    , JSON
+    ( JSON
     , Post
     , ReqBody
+    , (:>)
     )
 import Servant.Server
     ( Handler (..)

diff --git a/lib/wallet/src/Cardano/Wallet.hs b/lib/wallet/src/Cardano/Wallet.hs
@@ -559,9 +559,9 @@ import Cardano.Wallet.Shelley.Compatibility.Ledger
     , toWalletCoin
     )
 import Cardano.Wallet.Shelley.Transaction
-    ( txConstraints
+    ( _txRewardWithdrawalCost
+    , txConstraints
     , txWitnessTagForKey
-    , _txRewardWithdrawalCost
     )
 import Cardano.Wallet.Transaction
     ( DelegationAction (..)