From 10cc302badc3704ed300f7517a52ecc8304c61e9 Mon Sep 17 00:00:00 2001 From: Lemmih Date: Tue, 18 Apr 2006 02:35:18 +0000 Subject: [PATCH] Fix minor bug in Linker.withExtendedLinkEnv --- compiler/ghci/Linker.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs index 3a5ecf8..c97f942 100644 --- a/compiler/ghci/Linker.lhs +++ b/compiler/ghci/Linker.lhs @@ -146,8 +146,8 @@ withExtendedLinkEnv new_env action let new_closure_env = extendClosureEnv (closure_env pls) new_env new_pls = pls { closure_env = new_closure_env } writeIORef v_PersistentLinkerState new_pls - return pls - reset_old_env pls = writeIORef v_PersistentLinkerState pls + return (closure_env pls) + reset_old_env env = modifyIORef v_PersistentLinkerState (\pls -> pls{ closure_env = env }) -- filterNameMap removes from the environment all entries except -- those for a given set of modules; -- 1.7.10.4