@@ -52,6 +52,7 @@ data BuildArgs = BuildArgs
5252 , extraArgs' :: [String] -> [String]
5353 , noDocs :: Bool
5454 , buildCores :: Maybe Int
55+ , testThreads :: Maybe Int
5556 }
5657
5758parseBuildArgs :: GhcMajorVersion -> [String] -> IO BuildArgs
@@ -62,6 +63,7 @@ parseBuildArgs version =
6263 , extraArgs' = id
6364 , noDocs = False
6465 , buildCores = Nothing
66+ , testThreads = Nothing
6567 }
6668 where
6769 loop x [] = return x
@@ -70,6 +72,7 @@ parseBuildArgs version =
7072 loop x ("--arg":y:rest) = loop x { extraArgs' = extraArgs' x . (y:) } rest
7173 loop x ("--no-docs":rest) = loop x { noDocs = True } rest
7274 loop x ("-j":y:rest) = loop x { buildCores = Just $ read y } rest
75+ loop x ("--test-threads":y:rest) = loop x { testThreads = Just $ read y } rest
7376 loop _ (y:_) = error $ "Did not understand argument: " ++ y
7477
7578defaultBuildPlan :: FilePath
@@ -81,7 +84,11 @@ withBuildSettings args f = do
8184 BuildArgs {..} <- parseBuildArgs version args
8285 bp <- readBuildPlan buildPlanSrc
8386 let bs = defaultBuildSettings buildCores version
84− let settings = bs
87+ modTestThreads settings' =
88+ case testThreads of
89+ Nothing -> settings'
90+ Just t -> settings' { testWorkerThreads = t }
91+ settings = modTestThreads bs
8592 { sandboxRoot = sandbox
8693 , extraArgs = extraArgs' . extraArgs bs
8794 , buildDocs = not noDocs