From 427f3443a432cde66da1e8dde94ef9c5351636da Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 7 Nov 2007 16:16:12 +0000 Subject: [PATCH] FIX BUILD Sorry, should have pushed with previous batch of changes. --- compiler/ghci/InteractiveUI.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index 25ad9d8..74310a3 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -993,8 +993,8 @@ afterLoad ok session maybe_context = do Just (as,bs) -> do r <- io $ Exception.try (GHC.setContext session as bs) case r of - Left err -> setContextAfterLoad session loaded_mods - Right _ -> return () + Left _err -> setContextAfterLoad session loaded_mods + Right _ -> return () modulesLoadedMsg ok (map GHC.ms_mod_name loaded_mods) -- 1.7.10.4