From: simonmar <unknown>
Date: Mon, 29 Nov 2004 11:35:43 +0000 (+0000)
Subject: [project @ 2004-11-29 11:35:43 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1387
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c73c3891abaa5ed50d897e82ee9291054a5c9a0b;p=ghc-hetmet.git

[project @ 2004-11-29 11:35:43 by simonmar]
Don't quote package names
---

diff --git a/ghc/compiler/iface/LoadIface.lhs b/ghc/compiler/iface/LoadIface.lhs
index 69896be..579c09d 100644
--- a/ghc/compiler/iface/LoadIface.lhs
+++ b/ghc/compiler/iface/LoadIface.lhs
@@ -761,13 +761,13 @@ hiModuleNameMismatchWarn requested_mod read_mod =
 
 noIfaceErr dflags mod_name (PackageHidden pkg)
   = ptext SLIT("Could not import") <+> quotes (ppr mod_name) <> colon
-    $$ ptext SLIT("it is a member of package") <+> quotes (ppr pkg) <> comma
+    $$ ptext SLIT("it is a member of package") <+> ppr pkg <> comma
 	 <+> ptext SLIT("which is hidden")
 
 noIfaceErr dflags mod_name (ModuleHidden pkg)
   = ptext SLIT("Could not import") <+> quotes (ppr mod_name) <> colon
     $$ ptext SLIT("it is hidden") 
-	<+> parens (ptext SLIT("in package") <+> quotes (ppr pkg))
+	<+> parens (ptext SLIT("in package") <+> ppr pkg)
 
 noIfaceErr dflags mod_name (NotFound files)
   = ptext SLIT("Could not find interface file for") <+> quotes (ppr mod_name)