Minor revision (comments, whitespace).
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Thu, 7 Jan 2016 22:52:46 +0000 (22:52 +0000)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Thu, 7 Jan 2016 22:52:46 +0000 (22:52 +0000)
[skip ci]

src/Predicates.hs
src/Way.hs

index b5ce0cb..497fca5 100644 (file)
@@ -61,6 +61,8 @@ notStage0 = notM stage0
 notPackage :: Package -> Predicate
 notPackage = notM . package
 
--- | TODO: Actually, we don't register compiler in some circumstances -- fix.
+-- TODO: Actually, we don't register compiler in some circumstances -- fix.
+-- | Do we need to run @ghc-pkg update@ on the currently built package?
+-- See "Rules.Data".
 registerPackage :: Predicate
 registerPackage = return True
index 9f7f12a..3b1f6c0 100644 (file)
@@ -82,7 +82,7 @@ instance Eq Way where
 
 -- | Build with no 'WayUnit's at all.
 vanilla :: Way
-vanilla   = wayFromUnits []
+vanilla = wayFromUnits []
 
 -- | Build with profiling.
 profiling :: Way
@@ -90,14 +90,14 @@ profiling = wayFromUnits [Profiling]
 
 -- | Build with logging.
 logging :: Way
-logging   = wayFromUnits [Logging]
+logging = wayFromUnits [Logging]
 
 -- | Build in parallel.
 parallel :: Way
-parallel  = wayFromUnits [Parallel]
+parallel = wayFromUnits [Parallel]
 
 granSim :: Way
-granSim   = wayFromUnits [GranSim]
+granSim = wayFromUnits [GranSim]
 
 -- RTS only ways
 -- TODO: do we need to define *only* these? Shall we generalise/simplify?