89980ee1cbd03835fc379e5ec638954b4f1f0305
[hadrian.git] / src / Settings / Builders / HsCpp.hs
1 module Settings.Builders.HsCpp (hsCppBuilderArgs) where
2
3 import Expression
4 import Oracles
5 import Predicates (builder)
6 import Settings.Builders.GhcCabal
7
8 hsCppBuilderArgs :: Args
9 hsCppBuilderArgs = builder HsCpp ? do
10 stage <- getStage
11 mconcat [ append =<< getSettingList HsCppArgs
12 , arg "-P"
13 , cppArgs
14 , arg $ "-Icompiler/" ++ stageString stage
15 , arg "-x"
16 , arg "c"
17 , arg =<< getInput ]