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

[ghc-hetmet.git] / ghc / compiler / typecheck / TcBinds.lhs

diff --git a/ghc/compiler/typecheck/TcBinds.lhs b/ghc/compiler/typecheck/TcBinds.lhs
index ba0fa38..6f62328 100644 (file)
--- a/ghc/compiler/typecheck/TcBinds.lhs
+++ b/ghc/compiler/typecheck/TcBinds.lhs
@@ -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")]