@@ -636,7 +636,7 @@ module Arrays where
637 instance (Prelude.Show a) => Prelude.Show [a] where
637 instance (Prelude.Show a) => Prelude.Show [a] where
638 show [] = "[]"
638 show [] = "[]"
639− show (x:xs) = show x ++ " : " ++ show xs
639+ show xs = "[" ++ joinWith (map show xs) "," ++ "]"
641 instance Prelude.Functor [] where
641 instance Prelude.Functor [] where
642 (<$>) = map
642 (<$>) = map