TH expand hack.

2012-02-27 12:37:11 +09:00
parent caab2c5c2b
commit 3f2771a079
2 changed files with 5 additions and 6 deletions
--- a/Check.hs
+++ b/Check.hs
@@ -26,5 +26,5 @@ check opt fileName = withGHC $ checkIt `gcatch` handleErrMsg
        load LoadAllTargets
        liftIO readLog
    options
-      | expandSplice opt = ghcOpts opt
+      | expandSplice opt = ["-w:"] ++ ghcOpts opt
      | otherwise        = ["-Wall","-fno-warn-unused-do-bind"] ++ ghcOpts opt