From 492d5e91d589b68dc61ce2927c7519ecc48ec3db Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 30 Jan 2011 18:17:35 -0800
Subject: [PATCH] Fixed Interact.hs to handle the cpp macros in UTF8.
---
Interact.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Interact.hs b/Interact.hs
index 8fa7b5b3b..80b5a34f5 100644
--- a/Interact.hs
+++ b/Interact.hs
@@ -20,7 +20,7 @@ main = do
let setupConfig = read $ unlines $ drop 1 $ lines setupConfig'
let (Just (ComponentLocalBuildInfo { componentPackageDeps = deps })) = libraryConfig setupConfig
let packageSpecs = map (toPackageSpec . snd) deps
- let args = ["-cpp","-i../dist/build/autogen"] ++ concatMap (\p -> ["-package",p]) packageSpecs
+ let args = ["-optP-include", "-optP../dist/build/autogen/cabal_macros.h","-cpp","-I../dist/build/autogen","-i../dist/build/autogen"] ++ concatMap (\p -> ["-package",p]) packageSpecs
print args
ph <- runProcess "ghci" args (Just "src") Nothing Nothing Nothing Nothing
waitForProcess ph