for hlint.

src/GHCMod.hs

@@ -127,7 +127,7 @@ main = flip E.catches handlers $ do
     putStr res
   where
     handlers = [Handler (handleThenExit handler1), Handler (handleThenExit handler2)]
-    handleThenExit handler = \e -> handler e >> exitFailure
+    handleThenExit handler e = handler e >> exitFailure
     handler1 :: ErrorCall -> IO ()
     handler1 = print -- for debug
     handler2 :: GHCModError -> IO ()

src/GHCModi.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE BangPatterns, CPP #-}
+{-# LANGUAGE CPP #-}
 
 -- Commands:
 --  check <file>
@@ -11,6 +11,10 @@
 
 module Main where
 
+#ifndef MIN_VERSION_containers
+#define MIN_VERSION_containers 1
+#endif
+
 import Control.Applicative ((<$>))
 import Control.Concurrent (forkIO, MVar, newEmptyMVar, putMVar, readMVar)
 import Control.Exception (SomeException(..))