We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 6641404 commit f2e33c0Copy full SHA for f2e33c0
Data/ByteString/Lazy/Internal.hs
@@ -332,12 +332,10 @@ toStrict = \cs -> goLen0 cs cs
332
where
333
-- It's still possible that the result is empty
334
goLen0 _ Empty = S.BS S.nullForeignPtr 0
335
- goLen0 cs0 (Chunk (S.BS _ 0) cs) = goLen0 cs0 cs
336
goLen0 cs0 (Chunk c cs) = goLen1 cs0 c cs
337
338
-- It's still possible that the result is a single chunk
339
goLen1 _ bs Empty = bs
340
- goLen1 cs0 bs (Chunk (S.BS _ 0) cs) = goLen1 cs0 bs cs
341
goLen1 cs0 (S.BS _ bl) (Chunk (S.BS _ cl) cs) =
342
goLen cs0 (S.checkedAdd "Lazy.toStrict" bl cl) cs
343
0 commit comments