@@ -636,7 +636,7 @@ module Arrays where
636636
637637 instance (Prelude.Show a) => Prelude.Show [a] where
638638 show [] = "[]"
639− show (x:xs) = show x ++ " : " ++ show xs
639+ show xs = "[" ++ joinWith (map show xs) "," ++ "]"
640640
641641 instance Prelude.Functor [] where
642642 (<$>) = map