git.iko.soy/text
on master help sign in
Change argument ordering for unsafeCopy
e67c23fBryan O'Sullivan
Data/Text/Array.hs+1−1
compare with master
unifiedsplit
@@ -206,7 +206,7 @@ copy src@(MArray slen _) dest@(MArray dlen _)
206
206
207-- | Unsafely copy the elements of an array.
207-- | Unsafely copy the elements of an array.
208unsafeCopy :: MArray s -> Int -> MArray s -> Int -> Int -> ST s ()
208unsafeCopy :: MArray s -> Int -> MArray s -> Int -> Int -> ST s ()
209−unsafeCopy src sidx dest didx count =
209+unsafeCopy 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) $
Data/Text/Fusion.hs+1−1
@@ -136,7 +136,7 @@ reverse (Stream next s len0)
136 Yield x s1 | i < least -> {-# SCC "reverse/resize" #-} do
136 Yield x s1 | i < least -> {-# SCC "reverse/resize" #-} do
137 let newLen = len `shiftL` 1
137 let newLen = len `shiftL` 1
138 marr' <- A.unsafeNew newLen
138 marr' <- A.unsafeNew newLen
139− A.unsafeCopy marr 0 marr' (newLen-len) len
139+ A.unsafeCopy marr' (newLen-len) marr 0 len
140 write s1 (len+i) newLen marr'
140 write s1 (len+i) newLen marr'
141 | otherwise -> write s1 i len marr
141 | otherwise -> write s1 i len marr
142 where n = ord x
142 where n = ord x