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