Minor clean up, taking hlint suggestions
[ghc.git] / src / Settings / Flavours / Development.hs
1 module Settings.Flavours.Development (developmentFlavour) where
2
3 import Flavour
4 import Expression
5 import {-# SOURCE #-} Settings.Default
6
7 developmentFlavour :: Stage -> Flavour
8 developmentFlavour ghcStage = defaultFlavour
9 { name = "devel" ++ show (fromEnum ghcStage)
10 , args = defaultBuilderArgs <> developmentArgs ghcStage <> defaultPackageArgs }
11
12 developmentArgs :: Stage -> Args
13 developmentArgs ghcStage = do
14 stage <- getStage
15 sourceArgs SourceArgs
16 { hsDefault = pure ["-O", "-H64m"]
17 , hsLibrary = notStage0 ? arg "-dcore-lint"
18 , hsCompiler = succ stage == ghcStage ? pure ["-O0", "-DDEBUG"]
19 , hsGhc = succ stage == ghcStage ? pure ["-O0", "-DDEBUG"] }