Remove deprecated functions
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 17 Aug 2011 22:47:52 +0000 (22:47 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 17 Aug 2011 22:47:52 +0000 (22:47 +0000)
Data/Vector/Generic/Mutable.hs
Data/Vector/Generic/Mutable/Safe.hs
Data/Vector/Mutable.hs
Data/Vector/Mutable/Safe.hs
Data/Vector/Primitive/Mutable.hs
Data/Vector/Primitive/Mutable/Safe.hs
Data/Vector/Storable/Mutable.hs
Data/Vector/Unboxed/Mutable.hs
Data/Vector/Unboxed/Mutable/Safe.hs

index b1e8b43..57eb2cb 100644 (file)
@@ -53,10 +53,7 @@ module Data.Vector.Generic.Mutable (
   transform, transformR,
   fill, fillR,
   unsafeAccum, accum, unsafeUpdate, update, reverse,
-  unstablePartition, unstablePartitionStream, partitionStream,
-
-  -- * Deprecated operations
-  newWith, unsafeNewWith
+  unstablePartition, unstablePartitionStream, partitionStream
 ) where
 
 import qualified Data.Vector.Fusion.Stream      as Stream
@@ -133,14 +130,8 @@ class MVector v a where
   basicUnsafeGrow  :: PrimMonad m => v (PrimState m) a -> Int
                                                        -> m (v (PrimState m) a)
 
-  -- | /DEPRECATED/ in favour of 'basicUnsafeReplicate'
-  basicUnsafeNewWith :: PrimMonad m => Int -> a -> m (v (PrimState m) a)
-
   {-# INLINE basicUnsafeReplicate #-}
-  basicUnsafeReplicate = basicUnsafeNewWith
-
-  {-# INLINE basicUnsafeNewWith #-}
-  basicUnsafeNewWith n x
+  basicUnsafeReplicate n x
     = do
         v <- basicUnsafeNew n
         basicSet v x
@@ -186,8 +177,6 @@ class MVector v a where
     where
       n = basicLength v
 
-{-# DEPRECATED basicUnsafeNewWith "define and use basicUnsafeReplicate instead" #-}
-
 -- ------------------
 -- Internal functions
 -- ------------------
@@ -873,18 +862,3 @@ partitionUnknown f s
                       v2' <- unsafeAppend1 v2 i2 x
                       return (v1, i1, v2', i2+1)
 
--- Deprecated functions
--- --------------------
-
--- | /DEPRECATED/ Use 'replicate' instead
-newWith :: (PrimMonad m, MVector v a) => Int -> a -> m (v (PrimState m) a)
-{-# INLINE newWith #-}
-newWith = replicate
-
--- | /DEPRECATED/ Use 'replicate' instead
-unsafeNewWith :: (PrimMonad m, MVector v a) => Int -> a -> m (v (PrimState m) a)
-{-# INLINE unsafeNewWith #-}
-unsafeNewWith = replicate
-
-{-# DEPRECATED newWith, unsafeNewWith "Use replicate instead" #-}
-
index 57f0f99..df17218 100644 (file)
@@ -55,10 +55,7 @@ module Data.Vector.Generic.Mutable.Safe (
   transform, transformR,
   fill, fillR,
   accum, update, reverse,
-  unstablePartition, unstablePartitionStream, partitionStream,
-
-  -- * Deprecated operations
-  newWith
+  unstablePartition, unstablePartitionStream, partitionStream
 ) where
 
 import Data.Vector.Generic.Mutable
index d2fd332..e3514fa 100644 (file)
@@ -46,10 +46,7 @@ module Data.Vector.Mutable (
   -- * Modifying vectors
 
   -- ** Filling and copying
-  set, copy, move, unsafeCopy, unsafeMove,
-
-  -- * Deprecated operations
-  newWith, unsafeNewWith
+  set, copy, move, unsafeCopy, unsafeMove
 ) where
 
 import           Control.Monad (when)
@@ -387,18 +384,3 @@ unsafeMove :: PrimMonad m => MVector (PrimState m) a   -- ^ target
 {-# INLINE unsafeMove #-}
 unsafeMove = G.unsafeMove
 
--- Deprecated functions
--- --------------------
-
--- | /DEPRECATED/ Use 'replicate' instead
-newWith :: PrimMonad m => Int -> a -> m (MVector (PrimState m) a)
-{-# INLINE newWith #-}
-newWith = G.replicate
-
--- | /DEPRECATED/ Use 'replicate' instead
-unsafeNewWith :: PrimMonad m => Int -> a -> m (MVector (PrimState m) a)
-{-# INLINE unsafeNewWith #-}
-unsafeNewWith = G.replicate
-
-{-# DEPRECATED newWith, unsafeNewWith "Use replicate instead" #-}
-
index 763e1a1..35620ea 100644 (file)
@@ -48,10 +48,7 @@ module Data.Vector.Mutable.Safe (
   -- * Modifying vectors
 
   -- ** Filling and copying
-  set, copy, move,
-
-  -- * Deprecated operations
-  newWith
+  set, copy, move
 ) where
 
 import Data.Vector.Mutable
index 3ce5dda..2e769e0 100644 (file)
@@ -46,10 +46,7 @@ module Data.Vector.Primitive.Mutable (
   -- * Modifying vectors
 
   -- ** Filling and copying
-  set, copy, move, unsafeCopy, unsafeMove,
-
-  -- * Deprecated operations
-  newWith, unsafeNewWith
+  set, copy, move, unsafeCopy, unsafeMove
 ) where
 
 import qualified Data.Vector.Generic.Mutable as G
@@ -326,18 +323,3 @@ unsafeMove :: (PrimMonad m, Prim a)
 {-# INLINE unsafeMove #-}
 unsafeMove = G.unsafeMove
 
--- Deprecated functions
--- --------------------
-
--- | /DEPRECATED/ Use 'replicate' instead
-newWith :: (PrimMonad m, Prim a) => Int -> a -> m (MVector (PrimState m) a)
-{-# INLINE newWith #-}
-newWith = G.replicate
-
--- | /DEPRECATED/ Use 'replicate' instead
-unsafeNewWith :: (PrimMonad m, Prim a) => Int -> a -> m (MVector (PrimState m) a)
-{-# INLINE unsafeNewWith #-}
-unsafeNewWith = G.replicate
-
-{-# DEPRECATED newWith, unsafeNewWith "Use replicate instead" #-}
-
index dcb38de..68c3a75 100644 (file)
@@ -47,10 +47,7 @@ module Data.Vector.Primitive.Mutable.Safe (
   -- * Modifying vectors
 
   -- ** Filling and copying
-  set, copy, move,
-
-  -- * Deprecated operations
-  newWith
+  set, copy, move
 ) where
 
 import Data.Vector.Primitive.Mutable
index 6d0dc0a..1f3d2af 100644 (file)
@@ -52,10 +52,7 @@ module Data.Vector.Storable.Mutable(
   unsafeCast,
 
   -- * Raw pointers
-  unsafeFromForeignPtr, unsafeToForeignPtr, unsafeWith,
-
-  -- * Deprecated operations
-  newWith, unsafeNewWith
+  unsafeFromForeignPtr, unsafeToForeignPtr, unsafeWith
 ) where
 
 import qualified Data.Vector.Generic.Mutable as G
@@ -413,18 +410,3 @@ unsafeWith :: Storable a => IOVector a -> (Ptr a -> IO b) -> IO b
 {-# INLINE unsafeWith #-}
 unsafeWith (MVector p n fp) m = withForeignPtr fp $ \_ -> m p
 
--- Deprecated functions
--- --------------------
-
--- | /DEPRECATED/ Use 'replicate' instead
-newWith :: (PrimMonad m, Storable a) => Int -> a -> m (MVector (PrimState m) a)
-{-# INLINE newWith #-}
-newWith = G.replicate
-
--- | /DEPRECATED/ Use 'replicate' instead
-unsafeNewWith :: (PrimMonad m, Storable a) => Int -> a -> m (MVector (PrimState m) a)
-{-# INLINE unsafeNewWith #-}
-unsafeNewWith = G.replicate
-
-{-# DEPRECATED newWith, unsafeNewWith "Use replicate instead" #-}
-
index 47b22f7..2d73a64 100644 (file)
@@ -48,11 +48,7 @@ module Data.Vector.Unboxed.Mutable (
   -- * Modifying vectors
 
   -- ** Filling and copying
-  set, copy, move, unsafeCopy, unsafeMove,
-
-  -- * Deprecated operations
-  newWith, unsafeNewWith
-
+  set, copy, move, unsafeCopy, unsafeMove
 ) where
 
 import Data.Vector.Unboxed.Base
@@ -284,21 +280,6 @@ unsafeMove :: (PrimMonad m, Unbox a)
 {-# INLINE unsafeMove #-}
 unsafeMove = G.unsafeMove
 
--- Deprecated functions
--- --------------------
-
--- | /DEPRECATED/ Use 'replicate' instead
-newWith :: (PrimMonad m, Unbox a) => Int -> a -> m (MVector (PrimState m) a)
-{-# INLINE newWith #-}
-newWith = G.replicate
-
--- | /DEPRECATED/ Use 'replicate' instead
-unsafeNewWith :: (PrimMonad m, Unbox a) => Int -> a -> m (MVector (PrimState m) a)
-{-# INLINE unsafeNewWith #-}
-unsafeNewWith = G.replicate
-
-{-# DEPRECATED newWith, unsafeNewWith "Use replicate instead" #-}
-
 #define DEFINE_MUTABLE
 #include "unbox-tuple-instances"
 
index 55f4437..2fadf76 100644 (file)
@@ -51,11 +51,7 @@ module Data.Vector.Unboxed.Mutable.Safe (
   -- * Modifying vectors
 
   -- ** Filling and copying
-  set, copy, move,
-
-  -- * Deprecated operations
-  newWith
-
+  set, copy, move
 ) where
 
 import Data.Vector.Unboxed.Mutable