Remove thawMany
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Tue, 18 May 2010 05:49:31 +0000 (05:49 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Tue, 18 May 2010 05:49:31 +0000 (05:49 +0000)
Data/Vector.hs
Data/Vector/Generic.hs
Data/Vector/Primitive.hs
Data/Vector/Storable.hs
Data/Vector/Unboxed.hs

index 26460cb..3b7a125 100644 (file)
@@ -140,7 +140,7 @@ module Data.Vector (
   G.convert,
 
   -- ** Mutable vectors
-  thaw, thawMany, copy, unsafeCopy
+  thaw, copy, unsafeCopy
 ) where
 
 import qualified Data.Vector.Generic as G
@@ -1302,12 +1302,6 @@ thaw :: PrimMonad m => Vector a -> m (MVector (PrimState m) a)
 {-# INLINE thaw #-}
 thaw = G.thaw
 
--- | /O(n)/ Yield a mutable vector containing copies of each vector in the
--- list.
-thawMany :: PrimMonad m => [Vector a] -> m (MVector (PrimState m) a)
-{-# INLINE thawMany #-}
-thawMany = G.thawMany
-
 -- | /O(n)/ Copy an immutable vector into a mutable one. The two vectors must
 -- have the same length.
 unsafeCopy :: PrimMonad m => MVector (PrimState m) a -> Vector a -> m ()
index bd316cd..1b795a9 100644 (file)
@@ -130,7 +130,7 @@ module Data.Vector.Generic (
   convert,
 
   -- ** Mutable vectors
-  thaw, thawMany, copy, unsafeCopy,
+  thaw, copy, unsafeCopy,
 
   -- * Fusion support
 
@@ -1574,6 +1574,7 @@ thaw v = do
            unsafeCopy mv v
            return mv
 
+{-
 -- | /O(n)/ Yield a mutable vector containing copies of each vector in the
 -- list.
 thawMany :: (PrimMonad m, Vector v a) => [v a] -> m (Mutable v (PrimState m) a)
@@ -1594,6 +1595,7 @@ thawMany vs = do
           let n = length v
           unsafeCopy (M.unsafeTake n mv) v
           thaw_loop (M.unsafeDrop n mv) vs
+-}
 
 -- | /O(n)/ Copy an immutable vector into a mutable one. The two vectors must
 -- have the same length.
index ba7f194..27a1cbe 100644 (file)
@@ -129,7 +129,7 @@ module Data.Vector.Primitive (
   G.convert,
 
   -- ** Mutable vectors
-  thaw, thawMany, copy, unsafeCopy
+  thaw, copy, unsafeCopy
 ) where
 
 import qualified Data.Vector.Generic           as G
@@ -1215,12 +1215,6 @@ thaw :: (Prim a, PrimMonad m) => Vector a -> m (MVector (PrimState m) a)
 {-# INLINE thaw #-}
 thaw = G.thaw
 
--- | /O(n)/ Yield a mutable vector containing copies of each vector in the
--- list.
-thawMany :: (Prim a, PrimMonad m) => [Vector a] -> m (MVector (PrimState m) a)
-{-# INLINE thawMany #-}
-thawMany = G.thawMany
-
 -- | /O(n)/ Copy an immutable vector into a mutable one. The two vectors must
 -- have the same length.
 unsafeCopy
index 7d91536..681d491 100644 (file)
@@ -126,7 +126,7 @@ module Data.Vector.Storable (
   G.convert,
 
   -- ** Mutable vectors
-  thaw, thawMany, copy, unsafeCopy,
+  thaw, copy, unsafeCopy,
 
   -- * Raw pointers
   unsafeFromForeignPtr, unsafeToForeignPtr, unsafeWith
@@ -1235,13 +1235,6 @@ thaw :: (Storable a, PrimMonad m) => Vector a -> m (MVector (PrimState m) a)
 {-# INLINE thaw #-}
 thaw = G.thaw
 
--- | /O(n)/ Yield a mutable vector containing copies of each vector in the
--- list.
-thawMany
-  :: (Storable a, PrimMonad m) => [Vector a] -> m (MVector (PrimState m) a)
-{-# INLINE thawMany #-}
-thawMany = G.thawMany
-
 -- | /O(n)/ Copy an immutable vector into a mutable one. The two vectors must
 -- have the same length.
 unsafeCopy
index 4037394..10904ca 100644 (file)
@@ -153,7 +153,7 @@ module Data.Vector.Unboxed (
   G.convert,
 
   -- ** Mutable vectors
-  thaw, thawMany, copy, unsafeCopy
+  thaw, copy, unsafeCopy
 ) where
 
 import Data.Vector.Unboxed.Base
@@ -1247,12 +1247,6 @@ thaw :: (Unbox a, PrimMonad m) => Vector a -> m (MVector (PrimState m) a)
 {-# INLINE thaw #-}
 thaw = G.thaw
 
--- | /O(n)/ Yield a mutable vector containing copies of each vector in the
--- list.
-thawMany :: (Unbox a, PrimMonad m) => [Vector a] -> m (MVector (PrimState m) a)
-{-# INLINE thawMany #-}
-thawMany = G.thawMany
-
 -- | /O(n)/ Copy an immutable vector into a mutable one. The two vectors must
 -- have the same length.
 unsafeCopy