[commit: ghc] wip/nfs-locking: Drop GranSim way unit. (de8ca62)

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


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

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

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

commit de8ca62e36c5202e8e430c6649313228f529d226
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Tue Feb 16 00:01:47 2016 +0000

    Drop GranSim way unit.


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

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

diff --git a/src/Settings/Builders/Ghc.hs b/src/Settings/Builders/Ghc.hs
index 51fde7f..96737f4 100644
--- a/src/Settings/Builders/Ghc.hs
+++ b/src/Settings/Builders/Ghc.hs
@@ -102,7 +102,6 @@ wayGhcArgs = do
             , (Profiling `wayUnit` way) ? arg "-prof"
             , (Logging   `wayUnit` way) ? arg "-eventlog"
             , (Parallel  `wayUnit` way) ? arg "-parallel"
-            , (GranSim   `wayUnit` way) ? arg "-gransim"
             , (way == debug || way == debugDynamic) ?
               append ["-ticky", "-DTICKY_TICKY"] ]
 
diff --git a/src/Way.hs b/src/Way.hs
index a301afe..59bbbc9 100644
--- a/src/Way.hs
+++ b/src/Way.hs
@@ -1,7 +1,7 @@
 module Way (
     WayUnit (..), Way, wayUnit, wayFromUnits,
 
-    vanilla, profiling, logging, parallel, granSim,
+    vanilla, profiling, logging, parallel,
     threaded, threadedProfiling, threadedLogging,
     debug, debugProfiling, threadedDebug, threadedDebugProfiling,
     dynamic, profilingDynamic, threadedProfilingDynamic,
@@ -27,7 +27,6 @@ data WayUnit = Threaded
              | Logging
              | Dynamic
              | Parallel
-             | GranSim
              deriving (Eq, Enum, Bounded)
 
 -- TODO: get rid of non-derived Show instances
@@ -39,7 +38,6 @@ instance Show WayUnit where
         Logging   -> "l"
         Dynamic   -> "dyn"
         Parallel  -> "mp"
-        GranSim   -> "gm"
 
 instance Read WayUnit where
     readsPrec _ s = [(unit, "") | unit <- [minBound ..], show unit == s]
@@ -96,9 +94,6 @@ logging = wayFromUnits [Logging]
 parallel :: Way
 parallel = wayFromUnits [Parallel]
 
-granSim :: Way
-granSim = wayFromUnits [GranSim]
-
 -- 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