Remove unneeded code
[darcs-mirrors/vector.git] / Data / Vector.hs
index 5d79a33..8537a49 100644 (file)
@@ -30,15 +30,12 @@ data Vector a = Vector {-# UNPACK #-} !Int
                                       (Array# a)
 
 instance IVector Vector a where
-  {-# INLINE create #-}
-  create init = runST (do_create init)
-    where
-      do_create :: ST s (Mut.Vector (ST s) a) -> ST s (Vector a)
-      do_create init = do
-                         Mut.Vector i n marr# <- init
-                         ST (\s# -> case unsafeFreezeArray# marr# s# of
+  {-# INLINE new #-}
+  new init = runST (do
+                      Mut.Vector i n marr# <- init
+                      ST (\s# -> case unsafeFreezeArray# marr# s# of
                               (# s2#, arr# #) -> (# s2#, Vector i n arr# #)
-                            )
+                            ))
 
   {-# INLINE vlength #-}
   vlength (Vector _ n _) = n