diff --git a/Check.hs b/Check.hs
index a674c44..7d130cd 100644
--- a/Check.hs
+++ b/Check.hs
@@ -15,7 +15,7 @@ import System.Process
 checkSyntax :: Options -> String -> IO String
 checkSyntax opt file = do
     makeDirectory (outDir opt)
-    (_,_,herr,_) <- runInteractiveProcess (ghc opt) ["--make","-Wall",file,"-outputdir","dist/flymake","-o","dist/flymake/a.out","-i..","-i../..","-i../../..","-i../../../..","-i../../../../.."] Nothing Nothing
+    (_,_,herr,_) <- runInteractiveProcess (ghc opt) ["--make","-Wall","-fno-warn-unused-do-bind",file,"-outputdir","dist/flymake","-o","dist/flymake/a.out","-i..","-i../..","-i../../..","-i../../../..","-i../../../../.."] Nothing Nothing
     hSetBinaryMode herr False
     refine <$> hGetContents herr
   where
diff --git a/GHCMod.hs b/GHCMod.hs
index 8bfcc19..fdb7830 100644
--- a/GHCMod.hs
+++ b/GHCMod.hs
@@ -8,7 +8,6 @@ import Param
 import Prelude hiding (catch)
 import System.Console.GetOpt
 import System.Environment (getArgs)
-import System.IO
 
 ----------------------------------------------------------------