Remove unneeded code
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sat, 12 Jul 2008 07:15:03 +0000 (07:15 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sat, 12 Jul 2008 07:15:03 +0000 (07:15 +0000)
Data/Vector.hs
Data/Vector/Unboxed.hs

index 0d7636e..8537a49 100644 (file)
@@ -31,14 +31,11 @@ data Vector a = Vector {-# UNPACK #-} !Int
 
 instance IVector Vector a where
   {-# INLINE new #-}
 
 instance IVector Vector a where
   {-# 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
-                         Mut.Vector i n marr# <- init
-                         ST (\s# -> case unsafeFreezeArray# marr# s# of
+  new init = runST (do
+                      Mut.Vector i n marr# <- init
+                      ST (\s# -> case unsafeFreezeArray# marr# s# of
                               (# s2#, arr# #) -> (# s2#, Vector i n arr# #)
                               (# s2#, arr# #) -> (# s2#, Vector i n arr# #)
-                            )
+                            ))
 
   {-# INLINE vlength #-}
   vlength (Vector _ n _) = n
 
   {-# INLINE vlength #-}
   vlength (Vector _ n _) = n
index 17a4d54..022f1ab 100644 (file)
@@ -32,14 +32,11 @@ data Vector a = Vector {-# UNPACK #-} !Int
 
 instance Unbox a => IVector Vector a where
   {-# INLINE new #-}
 
 instance Unbox a => IVector Vector a where
   {-# 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
-                         Mut.Vector i n marr# <- init
-                         ST (\s# -> case unsafeFreezeByteArray# marr# s# of
-                              (# s2#, arr# #) -> (# s2#, Vector i n arr# #)
-                            )
+  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 vlength #-}
   vlength (Vector _ n _) = n
 
   {-# INLINE vlength #-}
   vlength (Vector _ n _) = n