Fix Quick flavour
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Mon, 20 Jun 2016 02:08:45 +0000 (03:08 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Mon, 20 Jun 2016 02:08:45 +0000 (03:08 +0100)
See #259, #268.

src/Settings/Flavours/Quick.hs

index e3f0a5d..81fe178 100644 (file)
@@ -1,9 +1,17 @@
 module Settings.Flavours.Quick (quickFlavourArgs, quickFlavourWays) where
 
+import Context
+import GHC
 import Predicate
 
+optimise :: Context -> Bool
+optimise Context {..} = stage == Stage0 && package `elem` [compiler, ghc]
+                     || stage == Stage1 && isLibrary package
+
 quickFlavourArgs :: Args
-quickFlavourArgs = builder Ghc ? arg "-O0"
+quickFlavourArgs = builder Ghc ? do
+    context <- getContext
+    if optimise context then arg "-O" else arg "-O0"
 
 quickFlavourWays :: Ways
 quickFlavourWays = remove [profiling]