@@ -203,7 +203,6 @@ copy dest@(MArray dlen _) src@(MArray slen _)
203 | i >= slen = return ()
203 | i >= slen = return ()
204 | otherwise = do unsafeRead src i >>= unsafeWrite dest i
204 | otherwise = do unsafeRead src i >>= unsafeWrite dest i
205 copy_loop (i+1)
205 copy_loop (i+1)
208-- | Copy some elements of a mutable array.
207-- | Copy some elements of a mutable array.
209partialCopyM :: MArray s -> Int -> MArray s -> Int -> Int -> ST s ()
208partialCopyM :: MArray s -> Int -> MArray s -> Int -> Int -> ST s ()