Fix HsCpp argument list.
[ghc.git] / src / Settings / Builders / HsCpp.hs
1 module Settings.Builders.HsCpp (hsCppArgs) where
2
3 import Expression
4 import Oracles
5 import Predicates (builder)
6 import Settings.Builders.GhcCabal
7
8 -- TODO: why process the result with grep -v '^#pragma GCC'? No such lines!
9 hsCppArgs :: Args
10 hsCppArgs = builder HsCpp ? do
11 stage <- getStage
12 src <- getSource
13 args <- getSettingList HsCppArgs
14 mconcat [ append args
15 , arg "-P"
16 , cppArgs
17 , arg $ "-Icompiler/stage" ++ show (succ stage)
18 , arg "-x"
19 , arg "c"
20 , arg src ]