Commit de8ca62e authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Drop GranSim way unit.

parent 2fc7bd3e
......@@ -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"] ]
......
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.
......
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