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