[commit: ghc] wip/nfs-locking: Drop knownWays and knownRtsWays. (be568c0)

git at git.haskell.org git at git.haskell.org
Thu Oct 26 23:15:59 UTC 2017


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

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

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

commit be568c02f7ea7af3b916257cbf7656c8f9ad4979
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Wed Aug 5 23:24:47 2015 +0100

    Drop knownWays and knownRtsWays.


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

be568c02f7ea7af3b916257cbf7656c8f9ad4979
 src/Settings/Ways.hs | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

diff --git a/src/Settings/Ways.hs b/src/Settings/Ways.hs
index ae4bd38..0ea3432 100644
--- a/src/Settings/Ways.hs
+++ b/src/Settings/Ways.hs
@@ -1,7 +1,6 @@
 module Settings.Ways (
     ways, getWays,
-    rtsWays, getRtsWays,
-    knownWays, knownRtsWays
+    rtsWays, getRtsWays
     ) where
 
 import Way
@@ -40,14 +39,3 @@ defaultRtsWays = do
         , (dynamic `elem` ways) ?
           append [ dynamic, debugDynamic, threadedDynamic, threadedDebugDynamic
                  , loggingDynamic, threadedLoggingDynamic ] ]
-
--- These are all ways known to the build system
-knownWays :: [Way]
-knownWays = [vanilla, profiling, logging, parallel, granSim]
-
-knownRtsWays :: [Way]
-knownRtsWays = [ threaded, threadedProfiling, threadedLogging, debug
-               , debugProfiling, threadedDebug, threadedDebugProfiling, dynamic
-               , profilingDynamic, threadedProfilingDynamic, threadedDynamic
-               , threadedDebugDynamic, debugDynamic, loggingDynamic
-               , threadedLoggingDynamic ]



More information about the ghc-commits mailing list