@@ -661,7 +661,6 @@ module Data.Array where
661661 take _ [] = []
662662 take n (x:xs) = x : take (n - 1) xs
663663
664− instance (Prelude.Show a) => Prelude.Show [a] where
665664 instance (Show a) => Show [a] where
666665 show xs = "[" ++ joinWith (map show xs) "," ++ "]"
667666