Fix HsCpp argument list.
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Thu, 24 Sep 2015 22:45:01 +0000 (23:45 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Thu, 24 Sep 2015 22:45:01 +0000 (23:45 +0100)
src/Settings/Builders/HsCpp.hs

index da104cc..cad2897 100644 (file)
@@ -1,6 +1,7 @@
 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 ]