X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2FPrelBase.lhs;h=092d4dfd25d6808436b8f2fae93597285f6eaf08;hb=4c177fb1b821a2ac8d463bb8e7862d55eb7c1d25;hp=d283d590396ab221703a884f691711fad571af99;hpb=8592c8938c8e761e6f2726ad37a2bd4efc573ad8;p=ghc-hetmet.git

diff --git a/ghc/lib/std/PrelBase.lhs b/ghc/lib/std/PrelBase.lhs
index d283d59..092d4df 100644
--- 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