From 41fc1d1564ab6ecd767c1c1f3b378a433d64a954 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 27 May 2004 16:13:59 +0000
Subject: [PATCH] [project @ 2004-05-27 16:13:59 by simonmar] Change the
 'can't load package' message from a panic to an ordinary
 error.

---
 ghc/compiler/ghci/Linker.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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