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/Info.hs
+++ b/Info.hs
@@ -144,12 +144,12 @@ inModuleContext opt fileName modstr action errmsg =
    valid = do
        (file,_) <- initializeGHC opt fileName ["-w"] False
        setTargetFile file
-        load LoadAllTargets
+        _ <- load LoadAllTargets
        doif setContextFromTarget action
    invalid = do
-        initializeGHC opt fileName ["-w"] False
+        _ <- initializeGHC opt fileName ["-w"] False
        setTargetBuffer
-        load LoadAllTargets
+        _ <- load LoadAllTargets
        doif setContextFromTarget action
    setTargetBuffer = do
        modgraph <- depanal [mkModuleName modstr] True