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 (file)
--- 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
      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)
 
 
   modulesLoadedMsg ok (map GHC.ms_mod_name loaded_mods)