From 1e7eeff41cc10f6b516e9a3708f65bf5c1b81122 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Wed, 8 Jan 2014 09:55:06 +0900
Subject: [PATCH] cleaning up warnings.

---
 Language/Haskell/GhcMod/Gap.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Language/Haskell/GhcMod/Gap.hs b/Language/Haskell/GhcMod/Gap.hs
index 9286a14..051191a 100644
--- a/Language/Haskell/GhcMod/Gap.hs
+++ b/Language/Haskell/GhcMod/Gap.hs
@@ -45,7 +45,6 @@ import Outputable
 import PprTyThing
 import StringBuffer
 import TcType
-import TcRnTypes
 import CoreSyn
 
 import qualified InstEnv
@@ -53,6 +52,8 @@ import qualified Pretty
 import qualified StringBuffer as SB
 #if __GLASGOW_HASKELL__ >= 707
 import FamInstEnv
+#else
+import TcRnTypes
 #endif
 
 #if __GLASGOW_HASKELL__ >= 706
@@ -68,7 +69,6 @@ import HscTypes (liftIO)
 import Pretty
 #endif
 
-
 #if __GLASGOW_HASKELL__ < 706
 import Control.Arrow hiding ((<+>))
 import Data.Convertible
@@ -306,7 +306,7 @@ typeForUser = pprTypeForUser False
 deSugar :: TypecheckedModule -> LHsExpr Id -> HscEnv
          -> IO (Maybe CoreSyn.CoreExpr)
 #if __GLASGOW_HASKELL__ >= 707
-deSugar tcm e hs_env = snd <$> deSugarExpr hs_env e
+deSugar _   e hs_env = snd <$> deSugarExpr hs_env e
 #else
 deSugar tcm e hs_env = snd <$> deSugarExpr hs_env modu rn_env ty_env e
   where