[commit: ghc] wip/nfs-locking: Add allWays. (575d82f)

[git at git.haskell.org]

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

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

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

commit 575d82fe621956b8a6c293eb381a19896aed2366
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Tue Feb 16 00:53:44 2016 +0000

    Add allWays.


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

575d82fe621956b8a6c293eb381a19896aed2366
 src/Way.hs | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/src/Way.hs b/src/Way.hs
index b297e79..668ed63 100644
--- a/src/Way.hs
+++ b/src/Way.hs
@@ -1,14 +1,12 @@
 module Way (
     WayUnit (..), Way, wayUnit, wayFromUnits,
 
-    vanilla, profiling, logging,
-    threaded, threadedProfiling, threadedLogging,
-    debug, debugProfiling, threadedDebug, threadedDebugProfiling,
-    dynamic, profilingDynamic, threadedProfilingDynamic,
-    threadedDynamic, threadedDebugDynamic, debugDynamic,
-    loggingDynamic, threadedLoggingDynamic,
-
-    wayPrefix, hisuf, osuf, hcsuf, obootsuf, hibootsuf, ssuf, libsuf,
+    vanilla, profiling, dynamic, profilingDynamic, threaded, debug, logging,
+    threadedDebug, threadedProfiling, threadedLogging, threadedDynamic,
+    threadedDebugProfiling, threadedDebugDynamic, threadedProfilingDynamic,
+    threadedLoggingDynamic, debugProfiling, debugDynamic, loggingDynamic,
+
+    allWays, wayPrefix, hisuf, osuf, hcsuf, obootsuf, hibootsuf, ssuf, libsuf,
     safeDetectWay, detectWay, matchBuildResult
     ) where
 
@@ -121,6 +119,14 @@ debugProfiling           = wayFromUnits [Debug, Profiling]
 debugDynamic             = wayFromUnits [Debug, Dynamic]
 loggingDynamic           = wayFromUnits [Logging, Dynamic]
 
+-- | All ways supported by the build system.
+allWays :: [Way]
+allWays =
+    [ vanilla, profiling, dynamic, profilingDynamic, threaded, debug, logging
+    , threadedDebug, threadedProfiling, threadedLogging, threadedDynamic
+    , threadedDebugProfiling, threadedDebugDynamic, threadedProfilingDynamic
+    , threadedLoggingDynamic, debugProfiling, debugDynamic, loggingDynamic ]
+
 wayPrefix :: Way -> String
 wayPrefix way | way == vanilla = ""
               | otherwise      = show way ++ "_"