vnew -> basicNew
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 2 Dec 2009 11:53:06 +0000 (11:53 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 2 Dec 2009 11:53:06 +0000 (11:53 +0000)
Data/Vector.hs
Data/Vector/Generic.hs
Data/Vector/Primitive.hs
Data/Vector/Storable.hs

index 11e2f5c..ed71658 100644 (file)
@@ -92,11 +92,11 @@ instance Show a => Show (Vector a) where
     show = (Prelude.++ " :: Data.Vector.Vector") . ("fromList " Prelude.++) . show . toList
 
 instance G.Vector Vector a where
-  {-# INLINE vnew #-}
-  vnew init = runST (do
-                       MVector i n marr <- init
-                       arr <- unsafeFreezeArray marr
-                       return (Vector i n arr))
+  {-# INLINE basicNew #-}
+  basicNew init = runST (do
+                           MVector i n marr <- init
+                           arr <- unsafeFreezeArray marr
+                           return (Vector i n arr))
 
   {-# INLINE vlength #-}
   vlength (Vector _ n _) = n
index 781e6ae..4dbca41 100644 (file)
@@ -105,7 +105,7 @@ import Prelude hiding ( length, null,
 --
 class Vector v a where
   -- | Construct a pure vector from a monadic initialiser (not fusible!)
-  vnew         :: (forall mv m. MVector mv m a => m (mv a)) -> v a
+  basicNew     :: (forall mv m. MVector mv m a => m (mv a)) -> v a
 
   -- | Length of the vector (not fusible!)
   vlength      :: v a -> Int
@@ -150,7 +150,7 @@ new m = new' undefined m
 -- See http://hackage.haskell.org/trac/ghc/ticket/2600
 new' :: Vector v a => v a -> New a -> v a
 {-# INLINE_STREAM new' #-}
-new' _ m = vnew (New.run m)
+new' _ m = basicNew (New.run m)
 
 -- | Convert a vector to a 'Stream'
 stream :: Vector v a => v a -> Stream a
index e2c422f..57567c5 100644 (file)
@@ -94,11 +94,11 @@ instance (Show a, Prim a) => Show (Vector a) where
     show = (Prelude.++ " :: Data.Vector.Primitive.Vector") . ("fromList " Prelude.++) . show . toList
 
 instance Prim a => G.Vector Vector a where
-  {-# INLINE vnew #-}
-  vnew init = runST (do
-                       MVector i n marr <- init
-                       arr <- unsafeFreezeByteArray marr
-                       return (Vector i n arr))
+  {-# INLINE basicNew #-}
+  basicNew init = runST (do
+                           MVector i n marr <- init
+                           arr <- unsafeFreezeByteArray marr
+                           return (Vector i n arr))
 
   {-# INLINE vlength #-}
   vlength (Vector _ n _) = n
index 0d035e4..95faa23 100644 (file)
@@ -99,10 +99,10 @@ instance (Show a, Storable a) => Show (Vector a) where
        . toList
 
 instance Storable a => G.Vector Vector a where
-  {-# INLINE vnew #-}
-  vnew init = unsafePerformIO (do
-                                 MVector i n p <- init
-                                 return (Vector i n p))
+  {-# INLINE basicNew #-}
+  basicNew init = unsafePerformIO (do
+                                     MVector i n p <- init
+                                     return (Vector i n p))
 
   {-# INLINE vlength #-}
   vlength (Vector _ n _) = n