X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fghci%2FLinker.lhs;h=3bb208f695b40970f2e3a2ee31f5262a4ad57392;hp=2f72dfd7dc0f62fdc6e59b648fdd364a4cff51d9;hb=814d2f506d63f785dbfe33189dde606a06e60285;hpb=e25d5095e6fd47e0a02404d9532c2f776d3f8a32

diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs
index 2f72dfd..3bb208f 100644
--- a/compiler/ghci/Linker.lhs
+++ b/compiler/ghci/Linker.lhs
@@ -1019,7 +1019,7 @@ linkPackage dflags pkg
 	let dlls = [ dll | DLL dll    <- classifieds ]
 	    objs = [ obj | Object obj <- classifieds ]
 
-	maybePutStr dflags ("Loading package " ++ showPackageId (package pkg) ++ " ... ")
+	maybePutStr dflags ("Loading package " ++ display (package pkg) ++ " ... ")
 
 	-- See comments with partOfGHCi
 	when (pkgName (package pkg) `notElem` partOfGHCi) $ do
@@ -1043,7 +1043,7 @@ linkPackage dflags pkg
         maybePutStr dflags "linking ... "
         ok <- resolveObjs
 	if succeeded ok then maybePutStrLn dflags "done."
-	      else throwDyn (InstallationError ("unable to load package `" ++ showPackageId (package pkg) ++ "'"))
+	      else throwDyn (InstallationError ("unable to load package `" ++ display (package pkg) ++ "'"))
 
 load_dyn dirs dll = do r <- loadDynamic dirs dll
 		       case r of