From: sof <unknown>
Date: Tue, 21 Jul 1998 08:34:50 +0000 (+0000)
Subject: [project @ 1998-07-21 08:34:50 by sof]
X-Git-Tag: Approx_2487_patches~505
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3136c6ccc4642538bf62f46d9992c2ec2e6e0a5d;p=ghc-hetmet.git

[project @ 1998-07-21 08:34:50 by sof]
commas inside SLIT()s have never been a good idea
---

diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index 2b3d04c..b13b29f 100644
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -917,6 +917,7 @@ getDeclBinders new_name (SigD (IfaceSig var ty prags src_loc))
   = new_name var src_loc			`thenRn` \ var_name ->
     returnRn (Avail var_name)
 
+getDeclBinders new_name (ForD _)  = returnRn NotAvailable
 getDeclBinders new_name (DefD _)  = returnRn NotAvailable
 getDeclBinders new_name (InstD _) = returnRn NotAvailable
 
@@ -1083,8 +1084,8 @@ importDeclWarn mod name loc
   = sep [ptext SLIT("Compiler tried to import decl from interface file with same name as module."), 
 	 ptext SLIT("(possible cause: module name clashes with interface file already in scope.)")
 	] $$
-    hsep [ptext SLIT("Interface:"), quotes (pprModule mod), ptext SLIT(", name:"), quotes (ppr name), 
-	  ptext SLIT(", desired at:"), ppr loc
+    hsep [ptext SLIT("Interface:"), quotes (pprModule mod), comma, ptext SLIT("name:"), quotes (ppr name), 
+	  comma, ptext SLIT("desired at:"), ppr loc
          ]
 
 \end{code}