Commit 555265ce authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Fix HsCpp argument list.

parent 6cde9851
module Settings.Builders.HsCpp (hsCppArgs) where
import Expression
import Oracles
import Predicates (builder)
import Settings.Builders.GhcCabal
......@@ -9,9 +10,11 @@ hsCppArgs :: Args
hsCppArgs = builder HsCpp ? do
stage <- getStage
src <- getSource
mconcat [ arg "-P"
args <- getSettingList HsCppArgs
mconcat [ append args
, arg "-P"
, cppArgs
, arg $ "-Icompiler/stage" ++ show stage
, arg $ "-Icompiler/stage" ++ show (succ stage)
, arg "-x"
, arg "c"
, arg src ]
Supports Markdown
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