From 1ee56e97d3c00bf125b5c4657ef9345a14b8dfc7 Mon Sep 17 00:00:00 2001
From: Mikhail Lazarev <mikhail@mlabs.city>
Date: Fri, 19 Aug 2022 14:02:17 +0300
Subject: [PATCH] fix formatting

---
 src/Test/Plutip/Internal/LocalCluster.hs | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/Test/Plutip/Internal/LocalCluster.hs b/src/Test/Plutip/Internal/LocalCluster.hs
index a5e29322..0eb5c4b4 100644
--- a/src/Test/Plutip/Internal/LocalCluster.hs
+++ b/src/Test/Plutip/Internal/LocalCluster.hs
@@ -73,14 +73,17 @@ import UnliftIO.Concurrent (forkFinally, myThreadId, throwTo)
 import UnliftIO.Exception (bracket, catchIO, finally)
 import UnliftIO.STM (TVar, atomically, newTVarIO, readTVar, retrySTM, writeTVar)
 
+import Cardano.Wallet.Primitive.Types (
+  NetworkParameters (NetworkParameters),
+  SlotLength (SlotLength),
+  SlottingParameters (SlottingParameters),
+ )
 import Data.Default (Default (def))
 import Data.Function ((&))
+import Data.Time (nominalDiffTimeToSeconds)
 import Ledger.TimeSlot (SlotConfig (scSlotLength))
 import Plutus.ChainIndex.Config qualified as CIC
 import PlutusPrelude ((.~), (^.))
-import Cardano.Wallet.Primitive.Types (NetworkParameters(NetworkParameters), 
-  SlottingParameters (SlottingParameters), SlotLength (SlotLength))
-import Data.Time (nominalDiffTimeToSeconds)
 
 -- | Starting a cluster with a setup action
 -- We're heavily depending on cardano-wallet local cluster tooling, however they don't allow the
@@ -255,7 +258,7 @@ waitForRelayNode trCluster rn =
 launchChainIndex :: PlutipConfig -> RunningNode -> FilePath -> IO Int
 launchChainIndex conf (RunningNode sp _block0 (netParams, _vData) _) dir = do
   let (NetworkParameters _ (SlottingParameters (SlotLength slotLen) _ _ _) _) = netParams
-  
+
   config <- defaultConfig
   CM.setMinSeverity config Severity.Notice
   let dbPath = dir </> "chain-index.db"