blob: e33061c9d033ebb0504489c71eab1e4fec4b5aed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
module Settings.Builders.HsCpp (hsCppBuilderArgs) where
import Packages
import Settings.Builders.Common
hsCppBuilderArgs :: Args
hsCppBuilderArgs = builder HsCpp ? do
stage <- getStage
root <- getBuildRoot
ghcPath <- expr $ buildPath (vanillaContext stage compiler)
mconcat [ getSettingList HsCppArgs
, arg "-P"
, arg "-Iincludes"
, arg $ "-I" ++ root -/- generatedDir
, arg $ "-I" ++ ghcPath
, arg "-x", arg "c"
, arg =<< getInput ]
|
