Rename DynFlags.parUpsweepNum to parMakeCount
authorPatrick Palka <patrick@parcs.ath.cx>
Fri, 30 Aug 2013 16:57:12 +0000 (12:57 -0400)
committerPatrick Palka <patrick@parcs.ath.cx>
Fri, 30 Aug 2013 18:09:42 +0000 (14:09 -0400)
compiler/main/DynFlags.hs
compiler/main/GhcMake.hs

index 37b016b..1fca713 100644 (file)
@@ -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))
index 5fc21f3..3581aa0 100644 (file)
@@ -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