From 65d7825f0c987d36a5c27e57857ef53726839a70 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 27 Jan 1998 18:36:22 +0000
Subject: [PATCH] [project @ 1998-01-27 18:36:22 by sof] derived Show
instances: Space out comma separated labelled fields
---
ghc/compiler/typecheck/TcGenDeriv.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/typecheck/TcGenDeriv.lhs b/ghc/compiler/typecheck/TcGenDeriv.lhs
index 9ac8fdb46cac..7e140354f618 100644
--- a/ghc/compiler/typecheck/TcGenDeriv.lhs
+++ b/ghc/compiler/typecheck/TcGenDeriv.lhs
@@ -278,7 +278,7 @@ cmp_eq _ _ = EQ
\end{verbatim}
\end{itemize}
-If there is only one constructor in the Data Type we don't need the WildCard Patern.
+If there is only one constructor in the Data Type we don't need the WildCard Pattern.
JJQC-30-Nov-1997
\begin{code}
@@ -861,7 +861,7 @@ gen_Show_binds tycon
| otherwise = --Assumption: no of fields == no of labelled fields
-- (and in same order)
concat $
- intersperse ([mk_showString_app (_CONS_ ',' _NIL_ )]) $ -- Using SLIT() is not cool here.
+ intersperse ([mk_showString_app (_CONS_ ',' SLIT(" "))]) $ -- Using SLIT()s containing ,s spells trouble.
zipWithEqual "gen_Show_binds"
(\ a b -> [a,b])
(map show_label labels)
--
GitLab