git.iko.soy/text
on master help sign in
Don't leak space when passing the undecoded portion to the next iteration.
1842416Tom Ellis
Data/Text/Encoding.hs+1−1
compare with master
unifiedsplit
@@ -286,7 +286,7 @@ streamDecodeUtf8With onErr = decodeChunk B.empty 0 0
286 return $! text arr 0 (fromIntegral n)
286 return $! text arr 0 (fromIntegral n)
287 lastPtr <- peek curPtrPtr
287 lastPtr <- peek curPtrPtr
288 let left = lastPtr `minusPtr` curPtr
288 let left = lastPtr `minusPtr` curPtr
289− undecoded = case state of
289+ !undecoded = case state of
290 UTF8_ACCEPT -> B.empty
290 UTF8_ACCEPT -> B.empty
291 _ -> B.append undecoded0 (B.drop left bs)
291 _ -> B.append undecoded0 (B.drop left bs)
292 return $ Some chunkText undecoded
292 return $ Some chunkText undecoded