From 33ddaf67aa286480c95305bb24a4c5bfe44930ad Mon Sep 17 00:00:00 2001
From: Scott West <scott.gregory.west@gmail.com>
Date: Tue, 7 Jan 2014 18:11:20 +0100
Subject: [PATCH] Updating Gap to the GHC 7.7 trunk API.

---
 Language/Haskell/GhcMod/Gap.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/Language/Haskell/GhcMod/Gap.hs b/Language/Haskell/GhcMod/Gap.hs
index c0cd85b..9286a14 100644
--- a/Language/Haskell/GhcMod/Gap.hs
+++ b/Language/Haskell/GhcMod/Gap.hs
@@ -306,13 +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 modu rn_env ty_env fi_env e
-  where
-    modu = ms_mod $ pm_mod_summary $ tm_parsed_module tcm
-    tcgEnv = fst $ tm_internals_ tcm
-    rn_env = tcg_rdr_env tcgEnv
-    ty_env = tcg_type_env tcgEnv
-    fi_env = tcg_fam_inst_env tcgEnv
+deSugar tcm 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