Removing -fno-warn-unused-do-bind.

2012-08-06 09:43:47 +09:00
parent 256eec740c
commit 3861625420
6 changed files with 9 additions and 12 deletions
--- a/Check.hs
+++ b/Check.hs
@@ -23,8 +23,8 @@ check opt fileName = withGHC $ checkIt `gcatch` handleErrMsg
    checkIt = do
        (file,readLog) <- initializeGHC opt fileName options True
        setTargetFile file
-        load LoadAllTargets
+        _ <- load LoadAllTargets
        liftIO readLog
    options
      | expandSplice opt = ["-w:"] ++ ghcOpts opt
-      | otherwise        = ["-Wall","-fno-warn-unused-do-bind"] ++ ghcOpts opt
+      | otherwise        = ["-Wall"] ++ ghcOpts opt