[project @ 1998-04-30 20:38:38 by sof]

[ghc-hetmet.git] / ghc / tests / numeric / should_run / arith012.hs

diff --git a/ghc/tests/numeric/should_run/arith012.hs b/ghc/tests/numeric/should_run/arith012.hs
index b3b212f..bcd4368 100644 (file)
--- a/ghc/tests/numeric/should_run/arith012.hs
+++ b/ghc/tests/numeric/should_run/arith012.hs
@@ -53,7 +53,7 @@ showList' [] = "[]"
 showList' (x:xs) = showChar '[' . x $ showl xs ""
       where 
        showl []     = showChar ']'
-       showl (x:xs) = showString ", " . x . showl xs
+       showl (x:xs) = showChar ',' . x . showl xs
 
 
 test_showOct :: IO ()