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

Whoops, don't reset the complete session in 'withLocalCallbacks'.
f74cf811 · Thomas Schilling · 1dfe7f1e · f74cf811
Commit f74cf811 authored Nov 28, 2008 by Thomas Schilling
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

compiler/main/HscTypes.lhs compiler/main/HscTypes.lhs +2 -1

No files found.
--- 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}