diff options
| -rw-r--r-- | compiler/ghci/InteractiveUI.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index 25ad9d8ba7..74310a340d 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) |