Un-inline copy.
--HG--
extra : convert_revision : f340ea30f51abf423713c0da401679a99aeba7d8
commit147bad1ccdd0d0651f8c6a1f8c18eb22dfba350b
authorBryan O'Sullivan <bos@serpentine.com>
dateSun 15 Aug 2010, 21:15 (16 years ago)
parentd92611f
Data/Text/Array.hs−1
@@ -203,7 +203,6 @@ copy dest@(MArray dlen _) src@(MArray slen _)
203203 | i >= slen = return ()
204204 | otherwise = do unsafeRead src i >>= unsafeWrite dest i
205205 copy_loop (i+1)
206−{-# INLINE copy #-}
207206
208207-- | Copy some elements of a mutable array.
209208partialCopyM :: MArray s -> Int -> MArray s -> Int -> Int -> ST s ()