Commit 87e57c1f authored by sof's avatar sof

[project @ 1999-02-04 14:44:26 by sof]

workaround for cpp unfriendly SLIT string
parent 937b23b9
......@@ -954,7 +954,8 @@ sigContextsCtxt s1 s2
mainContextsErr id
| getName id == main_NAME = ptext SLIT("Main.main cannot be overloaded")
| otherwise
= quotes (ppr id) <+> ptext SLIT("cannot be overloaded, because it is mutually recursive with Main.main")
= quotes (ppr id) <+> ptext SLIT("cannot be overloaded") <> char ',' <> -- sigh; workaround for cpp's inability to deal
ptext SLIT("because it is mutually recursive with Main.main") -- with commas inside SLIT strings.
mainTyCheckCtxt
= hsep [ptext SLIT("When checking that"), ppr main_NAME, ptext SLIT("has the required type")]
......
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