X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnIfaces.lhs;h=b13b29f5ce6d983ec48e8cd433207f36b9c022b8;hb=ffe3daa2cebacc56878467a8ee09602712ff5dee;hp=2b3d04cc24b33120e3242c49e0514a8b76113cff;hpb=bfce9573fc285187e0dc56f1bad4a02d5b00d38c;p=ghc-hetmet.git

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}