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

index ed71658..9b37b7d 100644 (file)
@@ -98,8 +98,8 @@ instance G.Vector Vector a where
                            arr <- unsafeFreezeArray marr
                            return (Vector i n arr))
 
-  {-# INLINE vlength #-}
-  vlength (Vector _ n _) = n
+  {-# INLINE basicLength #-}
+  basicLength (Vector _ n _) = n
 
   {-# INLINE unsafeSlice #-}
   unsafeSlice (Vector i _ arr) j n = Vector (i+j) n arr
index 4dbca41..6b47c7f 100644 (file)
@@ -108,7 +108,7 @@ class Vector v a where
   basicNew     :: (forall mv m. MVector mv m a => m (mv a)) -> v a
 
   -- | Length of the vector (not fusible!)
-  vlength      :: v a -> Int
+  basicLength      :: v a -> Int
 
   -- | Yield a part of the vector without copying it. No range checks!
   unsafeSlice  :: v a -> Int -> Int -> v a
@@ -197,7 +197,7 @@ unstream s = new (New.unstream s)
 
 length :: Vector v a => v a -> Int
 {-# INLINE_STREAM length #-}
-length v = vlength v
+length v = basicLength v
 
 {-# RULES
 
@@ -208,7 +208,7 @@ length v = vlength v
 
 null :: Vector v a => v a -> Bool
 {-# INLINE_STREAM null #-}
-null v = vlength v == 0
+null v = basicLength v == 0
 
 {-# RULES
 
index 57567c5..8977a65 100644 (file)
@@ -100,8 +100,8 @@ instance Prim a => G.Vector Vector a where
                            arr <- unsafeFreezeByteArray marr
                            return (Vector i n arr))
 
-  {-# INLINE vlength #-}
-  vlength (Vector _ n _) = n
+  {-# INLINE basicLength #-}
+  basicLength (Vector _ n _) = n
 
   {-# INLINE unsafeSlice #-}
   unsafeSlice (Vector i _ arr) j n = Vector (i+j) n arr
index 95faa23..d81f1f0 100644 (file)
@@ -104,8 +104,8 @@ instance Storable a => G.Vector Vector a where
                                      MVector i n p <- init
                                      return (Vector i n p))
 
-  {-# INLINE vlength #-}
-  vlength (Vector _ n _) = n
+  {-# INLINE basicLength #-}
+  basicLength (Vector _ n _) = n
 
   {-# INLINE unsafeSlice #-}
   unsafeSlice (Vector i _ p) j n = Vector (i+j) n p