@@ -31,11 +31,11 @@ module Data.Text.Array
3131
3232 -- * Functions
3333 , copy
34+ , partialCopyM
3435 , empty
3536 , run
3637 , run2
3738 , toList
38− , unsafeCopy
3939 , unsafeFreeze
4040 , unsafeIndex
4141 , unsafeNew
@@ -204,9 +204,9 @@ copy dest@(MArray dlen _) src@(MArray slen _)
204204 copy_loop (i+1)
205205{-# INLINE copy #-}
206206
207−-- | Unsafely copy the elements of an array.
208−unsafeCopy :: MArray s -> Int -> MArray s -> Int -> Int -> ST s ()
209−unsafeCopy dest didx src sidx count =
207+-- | Copy some elements of a mutable array.
208+partialCopyM :: MArray s -> Int -> MArray s -> Int -> Int -> ST s ()
209+partialCopyM dest didx src sidx count =
210210#if defined(ASSERTS)
211211 assert (sidx + count <= length src) .
212212 assert (didx + count <= length dest) $
@@ -217,4 +217,4 @@ unsafeCopy dest didx src sidx count =
217217 | c >= count = return ()
218218 | otherwise = do unsafeRead src i >>= unsafeWrite dest j
219219 copy_loop (i+1) (j+1) (c+1)
220−{-# INLINE unsafeCopy #-}
220+{-# INLINE partialCopyM #-}