@@ -661,7 +661,6 @@ module Data.Array where
661 take _ [] = []
661 take _ [] = []
662 take n (x:xs) = x : take (n - 1) xs
662 take n (x:xs) = x : take (n - 1) xs
664− instance (Prelude.Show a) => Prelude.Show [a] where
665 instance (Show a) => Show [a] where
664 instance (Show a) => Show [a] where
666 show xs = "[" ++ joinWith (map show xs) "," ++ "]"
665 show xs = "[" ++ joinWith (map show xs) "," ++ "]"