Commit 1c331534 authored by parcs's avatar parcs

Rename DynFlags.parUpsweepNum to parMakeCount

parent 26bf3dd4
......@@ -582,8 +582,8 @@ data DynFlags = DynFlags {
ruleCheck :: Maybe String,
strictnessBefore :: [Int], -- ^ Additional demand analysis
parUpsweepNum :: Maybe Int, -- ^ The number of modules to compile in parallel
-- during the upsweep, where Nothing ==> compile as
parMakeCount :: Maybe Int, -- ^ The number of modules to compile in parallel
-- in --make mode, where Nothing ==> compile as
-- many in parallel as there are CPUs.
maxRelevantBinds :: Maybe Int, -- ^ Maximum number of bindings from the type envt
......@@ -1270,7 +1270,7 @@ defaultDynFlags mySettings =
historySize = 20,
strictnessBefore = [],
parUpsweepNum = Just 1,
parMakeCount = Just 1,
cmdlineHcIncludes = [],
importPaths = ["."],
......@@ -2030,7 +2030,7 @@ dynamic_flags = [
addWarn "-#include and INCLUDE pragmas are deprecated: They no longer have any effect"))
, Flag "v" (OptIntSuffix setVerbosity)
, Flag "j" (OptIntSuffix (\n -> upd (\d -> d {parUpsweepNum = n})))
, Flag "j" (OptIntSuffix (\n -> upd (\d -> d {parMakeCount = n})))
------- ways --------------------------------------------------------
, Flag "prof" (NoArg (addWay WayProf))
......
......@@ -270,7 +270,7 @@ load how_much = do
liftIO $ debugTraceMsg dflags 2 (hang (text "Ready for upsweep")
2 (ppr mg))
n_jobs <- case parUpsweepNum dflags of
n_jobs <- case parMakeCount dflags of
Nothing -> liftIO getNumProcessors
Just n -> return n
let upsweep_fn | n_jobs > 1 = parUpsweep n_jobs
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment