From: Thomas Schilling <nominolo@googlemail.com>
Date: Fri, 28 Nov 2008 15:07:27 +0000 (+0000)
Subject: Whoops, *don't* reset the complete session in 'withLocalCallbacks'.
X-Git-Tag: 2009-03-13~379
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=f74cf811fae9a09799b56a24f53cb55b748b57f8

Whoops, *don't* reset the complete session in 'withLocalCallbacks'.
---

diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs
index c187932..e79acf4 100644
--- a/compiler/main/HscTypes.lhs
+++ b/compiler/main/HscTypes.lhs
@@ -480,7 +480,8 @@ withLocalCallbacks f m = do
   let cb' = f cb0
   setSession (hsc_env { hsc_callbacks = cb' `seq` cb' })
   r <- m
-  setSession (hsc_env { hsc_callbacks = cb0 })
+  hsc_env' <- getSession
+  setSession (hsc_env' { hsc_callbacks = cb0 })
   return r
 
 \end{code}