FIX BUILD

Sorry, should have pushed with previous batch of changes.
dmpots · Nov 7, 2007 · 427f344 · 427f344
1 parent e82fcf2
commit 427f344
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)