Apply suggestions from code review

Co-authored-by: Mateusz Galazyn <[email protected]>
IntersectMBO · Jan 31, 2025 · deb17c2 · deb17c2
1 parent 55313f5
commit deb17c2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cardano-testnet/src/Testnet/Property/Run.hs b/cardano-testnet/src/Testnet/Property/Run.hs
@@ -65,7 +65,7 @@ runTestnet tnOpts tn = do
 
 
 testnetProperty :: CardanoTestnetOptions -> (Conf -> H.Integration ()) -> H.Property
-testnetProperty CardanoTestnetOptions{cardanoOutputDir} tn =
+testnetProperty CardanoTestnetOptions{cardanoOutputDir} runTestnet =
   case cardanoOutputDir of
       Nothing -> do
         integrationWorkspace "testnet" $ \workspaceDir -> do
@@ -80,7 +80,7 @@ testnetProperty CardanoTestnetOptions{cardanoOutputDir} tn =
           else do
             liftIO $ createDirectory absUserOutputDir
             H.note_ $ "Created " <> absUserOutputDir)
-          go $ Conf $ TmpAbsolutePath absUserOutputDir
+          go $ mkConf absUserOutputDir
   where
     go conf = do
       -- Fork a thread to keep alive indefinitely any resources allocated by testnet.