Move ffiIncludeDir to C arguments
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Tue, 26 Sep 2017 18:56:28 +0000 (20:56 +0200)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Tue, 26 Sep 2017 18:56:28 +0000 (20:56 +0200)
src/Settings/Packages/Rts.hs

index a7ed021..7282a0e 100644 (file)
@@ -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