From: sof <unknown>
Date: Tue, 27 Jan 1998 18:36:22 +0000 (+0000)
Subject: [project @ 1998-01-27 18:36:22 by sof]
X-Git-Tag: Approx_2487_patches~1050
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=65d7825f0c987d36a5c27e57857ef53726839a70

[project @ 1998-01-27 18:36:22 by sof]
derived Show instances: Space out comma separated labelled fields
---

diff --git a/ghc/compiler/typecheck/TcGenDeriv.lhs b/ghc/compiler/typecheck/TcGenDeriv.lhs
index 9ac8fdb..7e14035 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)