Commit 3136c6cc authored by sof's avatar sof
Browse files

[project @ 1998-07-21 08:34:50 by sof]

commas inside SLIT()s have never been a good idea
parent b4eaba71
......@@ -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}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment