[project @ 2004-05-27 16:13:59 by simonmar]

Change the 'can't load package' message from a panic to an ordinary
error.

diff --git a/ghc/compiler/ghci/Linker.lhs b/ghc/compiler/ghci/Linker.lhs
index ffd16e2..0879aa3 100644 (file)
--- a/ghc/compiler/ghci/Linker.lhs
+++ b/ghc/compiler/ghci/Linker.lhs
@@ -790,7 +790,7 @@ linkPackage dflags pkg
         maybePutStr dflags "linking ... "
         ok <- resolveObjs
        if succeeded ok then maybePutStrLn dflags "done."
-             else panic ("can't load package `" ++ name pkg ++ "'")
+             else throwDyn (InstallationError ("unable to load package `" ++ name pkg ++ "'"))
 
 load_dyn dirs dll = do r <- loadDynamic dirs dll
                       case r of