From 87e57c1ff5df3a5c3d5f67a9805f7300e7932ba3 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 4 Feb 1999 14:44:26 +0000
Subject: [PATCH] [project @ 1999-02-04 14:44:26 by sof] workaround for cpp
unfriendly SLIT string
---
ghc/compiler/typecheck/TcBinds.lhs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/ghc/compiler/typecheck/TcBinds.lhs b/ghc/compiler/typecheck/TcBinds.lhs
index ba0fa38e7adf..6f62328f3861 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")]
--
GitLab