Commit 575d82fe authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Add allWays.

parent 3c88f16c
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 ++ "_"
......
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