rescue old GHCs.

2014-04-28 09:28:57 +09:00
parent 248a999f99
commit 6a7955679a
1 changed files with 1 additions and 1 deletions
--- 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