[commit: ghc] wip/nfs-locking: Drop Parallel way unit. (49a7cb2)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 00:02:53 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/49a7cb2fb676a1b0a7a9b4235aaa198b9ce0d8db/ghc

>---------------------------------------------------------------

commit 49a7cb2fb676a1b0a7a9b4235aaa198b9ce0d8db
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Tue Feb 16 00:04:46 2016 +0000

    Drop Parallel way unit.


>---------------------------------------------------------------

49a7cb2fb676a1b0a7a9b4235aaa198b9ce0d8db
 src/Settings/Builders/Ghc.hs | 1 -
 src/Way.hs                   | 8 +-------
 2 files changed, 1 insertion(+), 8 deletions(-)

diff --git a/src/Settings/Builders/Ghc.hs b/src/Settings/Builders/Ghc.hs
index 96737f4..ef3130f 100644
--- a/src/Settings/Builders/Ghc.hs
+++ b/src/Settings/Builders/Ghc.hs
@@ -101,7 +101,6 @@ wayGhcArgs = do
             , (Debug     `wayUnit` way) ? arg "-optc-DDEBUG"
             , (Profiling `wayUnit` way) ? arg "-prof"
             , (Logging   `wayUnit` way) ? arg "-eventlog"
-            , (Parallel  `wayUnit` way) ? arg "-parallel"
             , (way == debug || way == debugDynamic) ?
               append ["-ticky", "-DTICKY_TICKY"] ]
 
diff --git a/src/Way.hs b/src/Way.hs
index 59bbbc9..6d034e9 100644
--- a/src/Way.hs
+++ b/src/Way.hs
@@ -1,7 +1,7 @@
 module Way (
     WayUnit (..), Way, wayUnit, wayFromUnits,
 
-    vanilla, profiling, logging, parallel,
+    vanilla, profiling, logging,
     threaded, threadedProfiling, threadedLogging,
     debug, debugProfiling, threadedDebug, threadedDebugProfiling,
     dynamic, profilingDynamic, threadedProfilingDynamic,
@@ -26,7 +26,6 @@ data WayUnit = Threaded
              | Profiling
              | Logging
              | Dynamic
-             | Parallel
              deriving (Eq, Enum, Bounded)
 
 -- TODO: get rid of non-derived Show instances
@@ -37,7 +36,6 @@ instance Show WayUnit where
         Profiling -> "p"
         Logging   -> "l"
         Dynamic   -> "dyn"
-        Parallel  -> "mp"
 
 instance Read WayUnit where
     readsPrec _ s = [(unit, "") | unit <- [minBound ..], show unit == s]
@@ -90,10 +88,6 @@ profiling = wayFromUnits [Profiling]
 logging :: Way
 logging = wayFromUnits [Logging]
 
--- | Build in parallel.
-parallel :: Way
-parallel = wayFromUnits [Parallel]
-
 -- RTS only ways
 -- TODO: do we need to define *only* these? Shall we generalise/simplify?
 -- See compiler/main/DynFlags.hs.



More information about the ghc-commits mailing list