From 99aeebfb6fecde56efc97f2b0acb0d928abaa9d2 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Thu, 27 Mar 2014 16:28:27 +0900
Subject: [PATCH] for hlint.

---
 src/GHCMod.hs  | 2 +-
 src/GHCModi.hs | 6 +++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

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(..))