From 71e0f54889fbf1c4c8824059214527abc5dd7aab Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Wed, 31 Mar 2010 13:06:47 +0900
Subject: [PATCH] upgrading GHC 6.12

---
 Check.hs  | 2 +-
 GHCMod.hs | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

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
 
 ----------------------------------------------------------------