From: sof Date: Thu, 4 Feb 1999 14:44:26 +0000 (+0000) Subject: [project @ 1999-02-04 14:44:26 by sof] X-Git-Tag: Approximately_9120_patches~6609 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=87e57c1ff5df3a5c3d5f67a9805f7300e7932ba3;p=ghc-hetmet.git [project @ 1999-02-04 14:44:26 by sof] workaround for cpp unfriendly SLIT string --- diff --git a/ghc/compiler/typecheck/TcBinds.lhs b/ghc/compiler/typecheck/TcBinds.lhs index ba0fa38..6f62328 100644 --- 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")]