From a004ae5ab1167ddfaa4cdf4b8d9df2ce92e541a2 Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 14 Oct 2005 11:48:56 +0000 Subject: [PATCH] [project @ 2005-10-14 11:48:56 by simonmar] Fix a couple of problems with the "unknown package" error message --- ghc/compiler/main/Packages.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4