ghc-mod "expand" to expand TH.

2012-02-27 11:23:56 +09:00
parent e795b35502
commit 2c69ee4c8a
4 changed files with 27 additions and 16 deletions
--- a/Check.hs
+++ b/Check.hs
@@ -25,4 +25,6 @@ check opt fileName = withGHC $ checkIt `gcatch` handleErrMsg
        setTargetFile file
        load LoadAllTargets
        liftIO readLog
-    options = ["-Wall","-fno-warn-unused-do-bind"] ++ ghcOpts opt
+    options
+      | expandSplice opt = ghcOpts opt
+      | otherwise        = ["-Wall","-fno-warn-unused-do-bind"] ++ ghcOpts opt