Fusible length
[darcs-mirrors/vector.git] / Data / Vector / Unboxed.hs
index 2d51f29..794c95e 100644 (file)
@@ -41,8 +41,8 @@ instance Unbox a => IVector Vector a where
                               (# s2#, arr# #) -> (# s2#, Vector i n arr# #)
                             )
 
-  {-# INLINE length #-}
-  length (Vector _ n _) = n
+  {-# INLINE vlength #-}
+  vlength (Vector _ n _) = n
 
   {-# INLINE unsafeSlice #-}
   unsafeSlice (Vector i _ arr#) j n = Vector (i+j) n arr#