Commit f74cf811 authored by Thomas Schilling's avatar Thomas Schilling

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

parent 1dfe7f1e
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment