some cleanup

Author: mikekeke

src/Test/Plutip/Config.hs

@@ -9,7 +9,8 @@ import GHC.Generics (Generic)
 import GHC.Natural (Natural)
 
 -- | Configuration for the cluster working directory
--- This determines where the node database, chain-index database, and bot-plutus-interface files will be stored for a running cluster
+-- This determines where the node database, chain-index database,
+-- and bot-plutus-interface files will be stored for a running cluster
 --
 -- @since 0.2
 data WorkingDirectory
@@ -19,7 +20,8 @@ data WorkingDirectory
     Fixed
       { -- | Path to store cluster data, can be relative or absolute
         path :: FilePath
-      , -- | Should the working data be kept on disk after cluster shutdown. Full directory will be deleted on shutdown if False
+      , -- | Should the working data be kept on disk after cluster shutdown.
+        --   Full directory will be deleted on shutdown if False
         shouldKeep :: Bool
       }
   deriving stock (Generic, Show)

src/Test/Plutip/Contract.hs

@@ -332,7 +332,7 @@ withContractAs walletIdx toContract = do
       valuesAtWallet :: Contract w s e (NonEmpty Value)
       valuesAtWallet =
         void (waitNSlots 1)
-          >> traverse (valueAt . (`pubKeyHashAddress` Nothing)) collectValuesPkhs -- debug: waiting exact time instead
+          >> traverse (valueAt . (`pubKeyHashAddress` Nothing)) collectValuesPkhs
 
   -- run the test contract
   execRes <- liftIO $ runContract cEnv ownWallet (toContract otherWalletsPkhs)

src/Test/Plutip/Predicate.hs

@@ -29,7 +29,16 @@ import Data.Map (Map)
 import Data.Map qualified as Map
 import Ledger (ExBudget (ExBudget), ExCPU (ExCPU), ExMemory (ExMemory), TxId, Value)
 import PlutusCore.Evaluation.Machine.ExMemory (CostingInteger)
-import Prettyprinter (Doc, align, defaultLayoutOptions, indent, layoutPretty, viaShow, vsep, (<+>))
+import Prettyprinter (
+  Doc,
+  align,
+  defaultLayoutOptions,
+  indent,
+  layoutPretty,
+  viaShow,
+  vsep,
+  (<+>),
+ )
 import Prettyprinter.Render.String (renderString)
 import Test.Plutip.Internal.Types (
   ExecutionResult (ExecutionResult, contractState, outcome),

test/Spec/Test/Plutip/BotPlutusInterface.hs

@@ -11,7 +11,13 @@ import Network.HTTP.Client (
  )
 import Network.HTTP.Types.Status (status200)
 import System.Directory (doesDirectoryExist, doesFileExist)
-import Test.Plutip.Internal.BotPlutusInterface.Setup (keysDir, metadataDir, pParamsFile, scriptsDir, txsDir)
+import Test.Plutip.Internal.BotPlutusInterface.Setup (
+  keysDir,
+  metadataDir,
+  pParamsFile,
+  scriptsDir,
+  txsDir,
+ )
 import Test.Plutip.Internal.LocalCluster (withPlutusInterface)
 import Test.Tasty (TestTree)
 import Test.Tasty.HUnit (assertBool, testCase)