vlength -> basicLength
[darcs-mirrors/vector.git] / Data / Vector / Primitive.hs
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