From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 7 Nov 2007 16:16:12 +0000 (+0000)
Subject: FIX BUILD
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=427f3443a432cde66da1e8dde94ef9c5351636da

FIX BUILD
Sorry, should have pushed with previous batch of changes.
---

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)