create -> new
[darcs-mirrors/vector.git] / Data / Vector.hs
index a1df02d..0d7636e 100644 (file)
@@ -30,8 +30,8 @@ data Vector a = Vector {-# UNPACK #-} !Int
                                       (Array# a)
 
 instance IVector Vector a where
-  {-# INLINE create #-}
-  create init = runST (do_create init)
+  {-# INLINE new #-}
+  new init = runST (do_create init)
     where
       do_create :: ST s (Mut.Vector s a) -> ST s (Vector a)
       do_create init = do