[project @ 1998-04-29 09:11:17 by sof]

derived Show for labelled fields: use comma as separator, not comma followed by space

diff --git a/ghc/compiler/typecheck/TcGenDeriv.lhs b/ghc/compiler/typecheck/TcGenDeriv.lhs
index 94e3871..048b993 100644 (file)
--- a/ghc/compiler/typecheck/TcGenDeriv.lhs
+++ b/ghc/compiler/typecheck/TcGenDeriv.lhs
@@ -878,7 +878,7 @@ gen_Show_binds tycon
                 | otherwise       = --Assumption: no of fields == no of labelled fields 
                                     --            (and in same order)
                    concat $
-                   intersperse ([mk_showString_app (_CONS_ ',' SLIT(" "))]) $ -- Using SLIT()s containing ,s spells trouble.
+                   intersperse ([mk_showString_app (_CONS_ ',' _NIL_)]) $ -- Using SLIT()s containing ,s spells trouble.
                    zipWithEqual "gen_Show_binds"
                                 (\ a b -> [a,b])
                                 (map show_label labels)