Commit 6d6834a6 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Fix Quick flavour

See #259, #268.
parent 3a04d342
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]
Supports Markdown
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