@@ -31,11 +31,11 @@ module Data.Text.Array
32 -- * Functions
32 -- * Functions
39 , unsafeFreeze
39 , unsafeFreeze
40 , unsafeIndex
40 , unsafeIndex
41 , unsafeNew
41 , unsafeNew
@@ -204,9 +204,9 @@ copy dest@(MArray dlen _) src@(MArray slen _)
204 copy_loop (i+1)
204 copy_loop (i+1)
205{-# INLINE copy #-}
205{-# INLINE copy #-}
207−-- | Unsafely copy the elements of an array.
207+-- | Copy some elements of a mutable array.
208−unsafeCopy :: MArray s -> Int -> MArray s -> Int -> Int -> ST s ()
208+partialCopyM :: MArray s -> Int -> MArray s -> Int -> Int -> ST s ()
209−unsafeCopy dest didx src sidx count =
209+partialCopyM dest didx src sidx count =
210#if defined(ASSERTS)
210#if defined(ASSERTS)
211 assert (sidx + count <= length src) .
211 assert (sidx + count <= length src) .
212 assert (didx + count <= length dest) $
212 assert (didx + count <= length dest) $
@@ -217,4 +217,4 @@ unsafeCopy dest didx src sidx count =
217 | c >= count = return ()
217 | c >= count = return ()
218 | otherwise = do unsafeRead src i >>= unsafeWrite dest j
218 | otherwise = do unsafeRead src i >>= unsafeWrite dest j
219 copy_loop (i+1) (j+1) (c+1)
219 copy_loop (i+1) (j+1) (c+1)
220−{-# INLINE unsafeCopy #-}
220+{-# INLINE partialCopyM #-}