From 19559c48f77eee9ac7d59711a633ae58a87bb29a Mon Sep 17 00:00:00 2001
From: KtorZ <matthias.benkort@gmail.com>
Date: Mon, 8 Jun 2020 12:58:06 +0200
Subject: [PATCH] fix hlint suggestions

---
 lib/core/src/Cardano/Wallet/Network/Ports.hs | 4 +---
 lib/shelley/test/integration/Main.hs         | 2 +-
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/lib/core/src/Cardano/Wallet/Network/Ports.hs b/lib/core/src/Cardano/Wallet/Network/Ports.hs
index bcd5d254734..4b5b88bbea3 100644
--- a/lib/core/src/Cardano/Wallet/Network/Ports.hs
+++ b/lib/core/src/Cardano/Wallet/Network/Ports.hs
@@ -39,9 +39,7 @@ import Control.Monad.IO.Class
 import Control.Retry
     ( RetryPolicyM, retrying )
 import Data.List
-    ( isInfixOf )
-import Data.List
-    ( sort )
+    ( isInfixOf, sort )
 import Data.Streaming.Network
     ( bindRandomPortTCP )
 import Data.Word
diff --git a/lib/shelley/test/integration/Main.hs b/lib/shelley/test/integration/Main.hs
index d8a5f18b472..a1a33c92c6d 100644
--- a/lib/shelley/test/integration/Main.hs
+++ b/lib/shelley/test/integration/Main.hs
@@ -180,7 +180,7 @@ specWithServer tr = aroundAll withContext . after tearDown
             either pure (throwIO . ProcessHasExited "integration")
 
     withServer action =
-        ((=<<) (either throwIO pure)) $
+        ((either throwIO pure) =<<) $
         withCluster tr Info 0 $ \socketPath block0 (gp,vData) ->
         withSystemTempDirectory "cardano-wallet-databases" $ \db -> do
             serveWallet @(IO Shelley)