1 files changed, 41 insertions, 0 deletions
diff --git a/hadrian/src/Settings/Builders/Make.hs b/hadrian/src/Settings/Builders/Make.hs
new file mode 100644
index 0000000000..102ba54845
--- /dev/null
+++ b/hadrian/src/Settings/Builders/Make.hs
@@ -0,0 +1,41 @@
+module Settings.Builders.Make (makeBuilderArgs, validateBuilderArgs) where
+
+import Oracles.Setting
+import Packages
+import Rules.Gmp
+import Settings.Builders.Common
+import CommandLine
+
+makeBuilderArgs :: Args
+makeBuilderArgs = do
+    threads    <- shakeThreads <$> expr getShakeOptions
+    gmpPath    <- expr gmpBuildPath
+    libffiPath <- expr libffiBuildPath
+    let t = show $ max 4 (threads - 2) -- Don't use all Shake's threads
+    mconcat
+        [ builder (Make gmpPath   ) ? pure ["MAKEFLAGS=-j" ++ t]
+        , builder (Make libffiPath) ? pure ["MAKEFLAGS=-j" ++ t, "install"] ]
+
+validateBuilderArgs :: Args
+validateBuilderArgs = builder (Make "testsuite/tests") ? do
+    threads             <- shakeThreads <$> expr getShakeOptions
+    top                 <- expr topDirectory
+    compiler            <- expr $ fullpath ghc
+    checkPpr            <- expr $ fullpath checkPpr
+    checkApiAnnotations <- expr $ fullpath checkApiAnnotations
+    args                <- expr $ userSetting defaultTestArgs
+    return [ setTestSpeed $ testSpeed args
+           , "THREADS=" ++ show threads
+           , "TEST_HC=" ++ (top -/- compiler)
+           , "CHECK_PPR=" ++ (top -/- checkPpr)
+           , "CHECK_API_ANNOTATIONS=" ++ (top -/- checkApiAnnotations)
+           ]
+  where
+    fullpath :: Package -> Action FilePath
+    fullpath pkg = programPath =<< programContext Stage1 pkg
+
+-- | Support for speed of validation
+setTestSpeed :: TestSpeed -> String
+setTestSpeed Fast    = "fasttest"
+setTestSpeed Average = "test"
+setTestSpeed Slow    = "slowtest"