From 2017bc9a59d5b2b945629275dd1aeb1ac0e68dcb Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 12 Nov 2004 13:35:56 +0000
Subject: [PATCH] [project @ 2004-11-12 13:35:55 by simonpj] Update to new
 InstalledPackageInfo

---
 ghc/compiler/ghci/Linker.lhs   |   12 ++++++------
 ghc/compiler/main/Packages.lhs |    2 +-
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/ghc/compiler/ghci/Linker.lhs b/ghc/compiler/ghci/Linker.lhs
index 0849859..cbb6b6b 100644
--- a/ghc/compiler/ghci/Linker.lhs
+++ b/ghc/compiler/ghci/Linker.lhs
@@ -757,19 +757,19 @@ linkPackages dflags new_pkgs
 linkPackage :: DynFlags -> PackageConfig -> IO ()
 linkPackage dflags pkg
    = do 
-        let dirs      =  Packages.library_dirs pkg
-        let libs      =  Packages.hs_libraries pkg ++ extra_libraries pkg
-				++ [ lib | '-':'l':lib <- extra_ld_opts pkg ]
+        let dirs      =  Packages.libraryDirs pkg
+        let libs      =  Packages.hsLibraries pkg ++ Packages.extraLibraries pkg
+				++ [ lib | '-':'l':lib <- Packages.extraLdOpts pkg ]
         classifieds   <- mapM (locateOneObj dirs) libs
 
         -- Complication: all the .so's must be loaded before any of the .o's.  
 	let dlls = [ dll | DLL dll    <- classifieds ]
 	    objs = [ obj | Object obj <- classifieds ]
 
-	maybePutStr dflags ("Loading package " ++ Packages.name pkg ++ " ... ")
+	maybePutStr dflags ("Loading package " ++ showPackageId (package pkg) ++ " ... ")
 
 	-- See comments with partOfGHCi
-	when (Packages.name pkg `notElem` partOfGHCi) $ do
+	when (pkgName (package pkg) `notElem` partOfGHCi) $ do
 	    loadFrameworks pkg
             -- When a library A needs symbols from a library B, the order in
             -- extra_libraries/extra_ld_opts is "-lA -lB", because that's the
@@ -790,7 +790,7 @@ linkPackage dflags pkg
         maybePutStr dflags "linking ... "
         ok <- resolveObjs
 	if succeeded ok then maybePutStrLn dflags "done."
-	      else throwDyn (InstallationError ("unable to load package `" ++ name pkg ++ "'"))
+	      else throwDyn (InstallationError ("unable to load package `" ++ showPackageId (package pkg) ++ "'"))
 
 load_dyn dirs dll = do r <- loadDynamic dirs dll
 		       case r of
diff --git a/ghc/compiler/main/Packages.lhs b/ghc/compiler/main/Packages.lhs
index 43cd04d..bd26ba1 100644
--- a/ghc/compiler/main/Packages.lhs
+++ b/ghc/compiler/main/Packages.lhs
@@ -6,7 +6,7 @@
 \begin{code}
 module Packages (
 	PackageConfig,
-	InstalledPackageInfo(..),
+	InstalledPackageInfo(..), showPackageId,
 	Version(..),
 	PackageIdentifier(..),
 	defaultPackageConfig,
-- 
1.7.10.4