Commit 0955d43b authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Don't optimise GHC in Quickest flavour

See #259, #268.
parent b299acb4
module Settings.Flavours.Quickest (quickestFlavourArgs, quickestFlavourWays) where
import Context
import GHC
import Predicate
optimise :: Context -> Bool
optimise Context {..} = stage == Stage0 && package `elem` [compiler, ghc]
quickestFlavourArgs :: Args
quickestFlavourArgs = builder Ghc ? do
context <- getContext
if optimise context then arg "-O" else arg "-O0"
quickestFlavourWays :: Ways
quickestFlavourWays = remove [profiling]
module Settings.Flavours.Quickest (quickestFlavourArgs, quickestFlavourWays) where
import Predicate
quickestFlavourArgs :: Args
quickestFlavourArgs = builder Ghc ? arg "-O0"
quickestFlavourWays :: Ways
quickestFlavourWays = remove [profiling]
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