formatting fix

Author: mikekeke

contract-execution/Main.hs

@@ -32,8 +32,8 @@ import Test.Plutip.Internal.Types (
   ExecutionResult (contractState, outcome),
   nodeSocket,
  )
-import Text.Pretty.Simple (pShow)
 import Test.Plutip.Tools.ChainIndex qualified as CI
+import Text.Pretty.Simple (pShow)
 
 main :: IO ()
 main = do

plutip-server/Api/Handlers.hs

@@ -26,12 +26,15 @@ import Test.Plutip.Config (
   relayNodeLogs,
  )
 import Test.Plutip.Internal.BotPlutusInterface.Setup (keysDir)
-import Test.Plutip.Internal.BotPlutusInterface.Wallet
-    ( BpiWallet(signKey), addSomeWallet, cardanoMainnetAddress )
+import Test.Plutip.Internal.BotPlutusInterface.Wallet (
+  BpiWallet (signKey),
+  addSomeWallet,
+  cardanoMainnetAddress,
+ )
 import Test.Plutip.Internal.Cluster (RunningNode (RunningNode))
 import Test.Plutip.Internal.Cluster.Extra.Types (ExtraConfig (ExtraConfig, ecSlotLength))
 import Test.Plutip.Internal.LocalCluster (startCluster, stopCluster)
-import Test.Plutip.Internal.Types (ClusterEnv (runningNode, plutipConf))
+import Test.Plutip.Internal.Types (ClusterEnv (plutipConf, runningNode))
 import Types (
   AppM,
   ClusterStartupFailureReason (

src/Test/Plutip/Tools/CardanoApi.hs

@@ -20,12 +20,12 @@ import Control.Monad.Reader (MonadReader (ask), ReaderT)
 import Control.Retry (constantDelay, limitRetries, recoverAll)
 import Data.Map qualified as Map
 import Data.Set qualified as Set
+import Data.Time (NominalDiffTime, nominalDiffTimeToSeconds)
 import GHC.Generics (Generic)
 import Ouroboros.Consensus.HardFork.Combinator.AcrossEras (EraMismatch)
 import Ouroboros.Network.Protocol.LocalStateQuery.Type (AcquireFailure)
 import Test.Plutip.Internal.Types (ClusterEnv (runningNode))
 import UnliftIO (throwString)
-import Data.Time (NominalDiffTime, nominalDiffTimeToSeconds)
 
 newtype CardanoApiError
   = SomeError String

src/Test/Plutip/Tools/ChainIndex.hs

@@ -6,6 +6,7 @@ import Control.Monad.IO.Class (MonadIO, liftIO)
 import Control.Monad.Reader (MonadReader (ask), ReaderT, ask)
 import Control.Retry (constantDelay, limitRetries, recoverAll)
 import Data.Default (Default (def), def)
+import Data.Time (NominalDiffTime, nominalDiffTimeToSeconds)
 import Ledger (PubKeyHash)
 import Network.HTTP.Client (defaultManagerSettings)
 import Plutus.ChainIndex (Page (Page))
@@ -20,7 +21,6 @@ import Servant.Client (
 import Test.Plutip.Internal.BotPlutusInterface.Wallet (BpiWallet (walletPkh))
 import Test.Plutip.Internal.Types (ClusterEnv (chainIndexUrl))
 import UnliftIO (throwString)
-import Data.Time (NominalDiffTime, nominalDiffTimeToSeconds)
 
 utxosAtPkh ::
   MonadIO m =>