From: simonmar <unknown>
Date: Thu, 27 May 2004 16:13:59 +0000 (+0000)
Subject: [project @ 2004-05-27 16:13:59 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1825
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=41fc1d1564ab6ecd767c1c1f3b378a433d64a954;p=ghc-hetmet.git

[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
--- 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