Change handling of Monad in MVector and get rid of GADTs
[darcs-mirrors/vector.git] / Data / Vector / Unboxed.hs
index 794c95e..ff40932 100644 (file)
@@ -34,7 +34,7 @@ instance Unbox a => 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 :: 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