From f74cf811fae9a09799b56a24f53cb55b748b57f8 Mon Sep 17 00:00:00 2001 From: Thomas Schilling Date: Fri, 28 Nov 2008 15:07:27 +0000 Subject: [PATCH] Whoops, *don't* reset the complete session in 'withLocalCallbacks'. --- compiler/main/HscTypes.lhs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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} -- 1.7.10.4