Show instances for boxed and unboxed immutable vectors
authorMax Bolingbroke <batterseapower@hotmail.com>
Sun, 8 Feb 2009 16:44:27 +0000 (16:44 +0000)
committerMax Bolingbroke <batterseapower@hotmail.com>
Sun, 8 Feb 2009 16:44:27 +0000 (16:44 +0000)
Data/Vector.hs
Data/Vector/Unboxed.hs

index 11f5704..3a37ee0 100644 (file)
@@ -72,6 +72,9 @@ data Vector a = Vector {-# UNPACK #-} !Int
                        {-# UNPACK #-} !Int
                                       (Array# a)
 
                        {-# UNPACK #-} !Int
                                       (Array# a)
 
+instance Show a => Show (Vector a) where
+    show = (Prelude.++ " :: Data.Vector.Vector") . ("fromList " Prelude.++) . show . toList
+
 instance IVector Vector a where
   {-# INLINE vnew #-}
   vnew init = runST (do
 instance IVector Vector a where
   {-# INLINE vnew #-}
   vnew init = runST (do
index 580ca44..35db44d 100644 (file)
@@ -31,6 +31,9 @@ data Vector a = Vector {-# UNPACK #-} !Int
                        {-# UNPACK #-} !Int
                                       ByteArray#
 
                        {-# UNPACK #-} !Int
                                       ByteArray#
 
+instance (Show a, Unbox a) => Show (Vector a) where
+    show = (Prelude.++ " :: Data.Vector.Unboxed.Vector") . ("fromList " Prelude.++) . show . toList
+
 instance Unbox a => IVector Vector a where
   {-# INLINE vnew #-}
   vnew init = runST (do
 instance Unbox a => IVector Vector a where
   {-# INLINE vnew #-}
   vnew init = runST (do