new -> vnew
[darcs-mirrors/vector.git] / Data / Vector / Unboxed.hs
index 022f1ab..fffada5 100644 (file)
@@ -31,12 +31,11 @@ data Vector a = Vector {-# UNPACK #-} !Int
                                       ByteArray#
 
 instance Unbox a => IVector Vector a where
-  {-# INLINE new #-}
-  new init = runST (do
-                      Mut.Vector i n marr# <- init
-                      ST (\s# -> case unsafeFreezeByteArray# marr# s# of
-                           (# s2#, arr# #) -> (# s2#, Vector i n arr# #)
-                         ))
+  {-# INLINE vnew #-}
+  vnew init = runST (do
+                       Mut.Vector i n marr# <- init
+                       ST (\s# -> case unsafeFreezeByteArray# marr# s# of
+                            (# s2#, arr# #) -> (# s2#, Vector i n arr# #)))
 
   {-# INLINE vlength #-}
   vlength (Vector _ n _) = n