From 6a7955679a8b6d570f74dc2557a178e4966d63ba Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Mon, 28 Apr 2014 09:28:57 +0900
Subject: [PATCH] rescue old GHCs.

---
 Language/Haskell/GhcMod/Gap.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Language/Haskell/GhcMod/Gap.hs b/Language/Haskell/GhcMod/Gap.hs
index 6f699f5..f97eafe 100644
--- a/Language/Haskell/GhcMod/Gap.hs
+++ b/Language/Haskell/GhcMod/Gap.hs
@@ -198,7 +198,7 @@ withContext :: Ghc a -> Ghc a
 withContext action = gbracket setup teardown body
   where
     setup = getContext
-    teardown = setContext
+    teardown = setCtx
     body _ = do
         topImports >>= setCtx
         action