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

Browse.hs

@@ -25,7 +25,7 @@ browseModule opt mdlName = convert opt . format <$> browse opt mdlName
 
 browse :: Options -> String -> IO [String]
 browse opt mdlName = withGHC $ do
-    initSession0 opt
+    _ <- initSession0 opt
     maybeNamesToStrings <$> lookupModuleInfo
   where
     lookupModuleInfo = findModule (mkModuleName mdlName) Nothing >>= getModuleInfo

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

GHCApi.hs

@@ -37,7 +37,7 @@ initSession opt cmdOpts idirs logging = do
     let opts = map noLoc cmdOpts
     (dflags',_,_) <- parseDynamicFlags dflags opts
     (dflags'',readLog) <- liftIO . (>>= setLogger logging) . setGhcFlags opt . setFlags opt dflags' $ idirs
-    setSessionDynFlags dflags''
+    _ <- setSessionDynFlags dflags''
     return readLog
 
 ----------------------------------------------------------------

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

List.hs

@@ -15,7 +15,7 @@ listModules opt = convert opt . nub . sort <$> list opt
 
 list :: Options -> IO [String]
 list opt = withGHC $ do
-    initSession0 opt
+    _ <- initSession0 opt
     getExposedModules <$> getSessionDynFlags
   where
     getExposedModules = map moduleNameString

ghc-mod.cabal

@@ -42,10 +42,7 @@ Executable ghc-mod
                         List
                         Paths_ghc_mod
                         Types
-  if impl(ghc >= 6.12)
+  GHC-Options:          -Wall
-    GHC-Options:        -Wall -fno-warn-unused-do-bind
-  else
-    GHC-Options:        -Wall
   Build-Depends:        base >= 4.0 && < 5
                       , Cabal
                       , directory