@@ -20,7 +20,8 @@ import System.IO (IOMode (WriteMode, AppendMode),
20import System.Process (runProcess, waitForProcess)
20import System.Process (runProcess, waitForProcess)
22runTestSuites :: BuildSettings -> BuildPlan -> IO ()
22runTestSuites :: BuildSettings -> BuildPlan -> IO ()
23−runTestSuites settings bp = do
23+runTestSuites settings' bp = do
24+ settings <- fixBuildSettings settings'
24 let selected = bpPackages bp
25 let selected = bpPackages bp
25 putStrLn "Running test suites"
26 putStrLn "Running test suites"
26 let testdir = "runtests"
27 let testdir = "runtests"