Change argument ordering for unsafeCopy
--HG--
extra : convert_revision : c2eacc77c5c72b25e1e934c736d2c3b803087a01
commite67c23f4e5fb8227ef9653e8736e1720c1ef6a4c
authorBryan O'Sullivan <bos@serpentine.com>
dateSun 15 Aug 2010, 21:02 (16 years ago)
parent6b87918
Data/Text/Array.hs+1−1
@@ -206,7 +206,7 @@ copy src@(MArray slen _) dest@(MArray dlen _)
206206
207207-- | Unsafely copy the elements of an array.
208208unsafeCopy :: MArray s -> Int -> MArray s -> Int -> Int -> ST s ()
209−unsafeCopy src sidx dest didx count =
209+unsafeCopy dest didx src sidx count =
210210#if defined(ASSERTS)
211211 assert (sidx + count <= length src) .
212212 assert (didx + count <= length dest) $
Data/Text/Fusion.hs+1−1
@@ -136,7 +136,7 @@ reverse (Stream next s len0)
136136 Yield x s1 | i < least -> {-# SCC "reverse/resize" #-} do
137137 let newLen = len `shiftL` 1
138138 marr' <- A.unsafeNew newLen
139− A.unsafeCopy marr 0 marr' (newLen-len) len
139+ A.unsafeCopy marr' (newLen-len) marr 0 len
140140 write s1 (len+i) newLen marr'
141141 | otherwise -> write s1 i len marr
142142 where n = ord x