From: simonmar <unknown>
Date: Fri, 14 Oct 2005 11:48:56 +0000 (+0000)
Subject: [project @ 2005-10-14 11:48:56 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~170
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a004ae5ab1167ddfaa4cdf4b8d9df2ce92e541a2;p=ghc-hetmet.git

[project @ 2005-10-14 11:48:56 by simonmar]
Fix a couple of problems with the "unknown package" error message
---

diff --git a/ghc/compiler/main/Packages.lhs b/ghc/compiler/main/Packages.lhs
index 29e4dff..21c5596 100644
--- a/ghc/compiler/main/Packages.lhs
+++ b/ghc/compiler/main/Packages.lhs
@@ -654,7 +654,7 @@ add_package pkg_db ps p
   | p `elem` ps = return ps	-- Check if we've already added this package
   | otherwise =
       case lookupPackage pkg_db p of
-        Nothing -> Failed (missingPackageErr (packageIdString p))
+        Nothing -> Failed (missingPackageMsg (packageIdString p))
         Just pkg -> do
     	   -- Add the package's dependents also
 	   let deps = map mkPackageId (depends pkg)
@@ -662,7 +662,7 @@ add_package pkg_db ps p
     	   return (p : ps')
 
 missingPackageErr p = throwDyn (CmdLineError (showSDoc (missingPackageMsg p)))
-missingPackageMsg p = ptext SLIT("unknown package:") <> text p
+missingPackageMsg p = ptext SLIT("unknown package:") <+> text p
 
 -- -----------------------------------------------------------------------------
 -- The home module set