Minor revision
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Sat, 4 Jun 2016 20:56:12 +0000 (21:56 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Sat, 4 Jun 2016 20:56:12 +0000 (21:56 +0100)
src/Settings/Builders/Make.hs

index afb46d7..7283b4b 100644 (file)
@@ -7,8 +7,8 @@ import Settings
 makeBuilderArgs :: Args
 makeBuilderArgs = do
     threads <- shakeThreads <$> lift getShakeOptions
 makeBuilderArgs :: Args
 makeBuilderArgs = do
     threads <- shakeThreads <$> lift getShakeOptions
-    let j = "-j" ++ show threads
+    let t = show threads
     mconcat
     mconcat
-        [ builder (Make gmpBuildPath     ) ? append ["MAKEFLAGS=" ++ j]
-        , builder (Make libffiBuildPath  ) ? append ["MAKEFLAGS=" ++ j, "install"]
-        , builder (Make "testsuite/tests") ? append ["THREADS=" ++ show threads, "fast"]  ]
+        [ builder (Make gmpBuildPath     ) ? append ["MAKEFLAGS=-j" ++ t]
+        , builder (Make libffiBuildPath  ) ? append ["MAKEFLAGS=-j" ++ t, "install"]
+        , builder (Make "testsuite/tests") ? append ["THREADS=" ++ t, "fast"] ]