Commit 68446abe authored by Andrey Mokhov's avatar Andrey Mokhov

Move ffiIncludeDir to C arguments

parent b2d06c68
......@@ -107,6 +107,7 @@ rtsPackageArgs = package rts ? do
let cArgs = mconcat
[ arg "-Irts"
, arg $ "-I" ++ path
, flag UseSystemFfi ? arg ("-I" ++ ffiIncludeDir)
, arg $ "-DRtsWay=\"rts_" ++ show way ++ "\""
-- rts *must* be compiled with optimisations. The INLINE_HEADER macro
-- requires that functions are inlined to work as expected. Inlining
......@@ -181,9 +182,7 @@ rtsPackageArgs = package rts ? do
mconcat
[ builder (Cc FindCDependencies) ? cArgs
, builder (Ghc CompileCWithGhc) ? map ("-optc" ++) <$> cArgs
, builder Ghc ? mconcat
[ arg "-Irts"
, flag UseSystemFfi ? arg ("-I" ++ ffiIncludeDir) ]
, builder Ghc ? arg "-Irts"
, builder HsCpp ? pure
[ "-DTOP=" ++ show top
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment