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

[ghc-hetmet.git] / ghc / lib / std / 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