[project @ 1998-04-30 19:49:01 by sof]

Use , as element separator in lists and tuples not comma followed by space (important stuffcvs-diff PrelBase.lhs)

diff --git a/ghc/lib/std/PrelBase.lhs b/ghc/lib/std/PrelBase.lhs
index d283d59..092d4df 100644 (file)
--- a/ghc/lib/std/PrelBase.lhs
+++ b/ghc/lib/std/PrelBase.lhs
@@ -759,7 +759,7 @@ showList__ showx []     = showString "[]"
 showList__ showx (x:xs) = showChar '[' . showx x . showl xs
   where
     showl []     = showChar ']'
-    showl (x:xs) = showString ", " . showx x . showl xs
+    showl (x:xs) = showChar ',' . showx x . showl xs
 
 showSpace :: ShowS
 showSpace = {-showChar ' '-} \ xs -> ' ' : xs

diff --git a/ghc/lib/std/PrelTup.lhs b/ghc/lib/std/PrelTup.lhs
index daccfb8..64307ff 100644 (file)
--- a/ghc/lib/std/PrelTup.lhs
+++ b/ghc/lib/std/PrelTup.lhs
@@ -86,29 +86,29 @@ data (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) a b c d e f g h i j k l m n o p q r
 
 \begin{code}
 instance  (Show a, Show b) => Show (a,b)  where
-    showsPrec p (x,y) = showChar '(' . shows x . showString ", " .
+    showsPrec p (x,y) = showChar '(' . shows x . showChar ',' .
                                        shows y . showChar ')'
     showList   = showList__ (showsPrec 0) 
 
 instance (Show a, Show b, Show c) => Show (a, b, c) where
-    showsPrec p (x,y,z) = showChar '(' . showsPrec 0 x . showString ", " .
-                                        showsPrec 0 y . showString ", " .
+    showsPrec p (x,y,z) = showChar '(' . showsPrec 0 x . showChar ',' .
+                                        showsPrec 0 y . showChar ',' .
                                         showsPrec 0 z . showChar ')'
     showList   = showList__ (showsPrec 0) 
 
 instance (Show a, Show b, Show c, Show d) => Show (a, b, c, d) where
-    showsPrec p (w,x,y,z) = showChar '(' . showsPrec 0 w . showString ", " .
-                                          showsPrec 0 x . showString ", " .
-                                          showsPrec 0 y . showString ", " .
+    showsPrec p (w,x,y,z) = showChar '(' . showsPrec 0 w . showChar ',' .
+                                          showsPrec 0 x . showChar ',' .
+                                          showsPrec 0 y . showChar ',' .
                                           showsPrec 0 z . showChar ')'
 
     showList   = showList__ (showsPrec 0) 
 
 instance (Show a, Show b, Show c, Show d, Show e) => Show (a, b, c, d, e) where
-    showsPrec p (v,w,x,y,z) = showChar '(' . showsPrec 0 v . showString ", " .
-                                            showsPrec 0 w . showString ", " .
-                                            showsPrec 0 x . showString ", " .
-                                            showsPrec 0 y . showString ", " .
+    showsPrec p (v,w,x,y,z) = showChar '(' . showsPrec 0 v . showChar ',' .
+                                            showsPrec 0 w . showChar ',' .
+                                            showsPrec 0 x . showChar ',' .
+                                            showsPrec 0 y . showChar ',' .
                                             showsPrec 0 z . showChar ')'
     showList   = showList__ (showsPrec 0) 
 \end{code}