diff --git a/src/GHCMod.hs b/src/GHCMod.hs
index bdb0526..0ee67b0 100644
--- a/src/GHCMod.hs
+++ b/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 ()
diff --git a/src/GHCModi.hs b/src/GHCModi.hs
index 91b3bf7..912543a 100644
--- a/src/GHCModi.hs
+++ b/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(..))