rhi/bytebuild
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Correct the implementation of chunks

Browse source
This commit is contained in:
Andrew Martin 2023-03-29 12:29:23 -04:00
parent b8e4656334
commit 41855c4911
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Data/Bytes/Builder.hs
View file

@ -413,7 +413,7 @@ chunks xs0 =
-- Note: This function needs a test in the test suite. -- Note: This function needs a test in the test suite.
Builder $ \buf0 off0 len0 cs0 s0 -> case xs0 of Builder $ \buf0 off0 len0 cs0 s0 -> case xs0 of
ChunksNil -> (# s0, buf0, off0, len0, cs0 #) ChunksNil -> (# s0, buf0, off0, len0, cs0 #)
ChunksCons{} -> goInserting xs0 cs0 s0 ChunksCons{} -> goInserting xs0 (Mutable buf0 off0 cs0) s0
where where
-- Notice that goNoncopying does not take a buffer as an argument. At the -- Notice that goNoncopying does not take a buffer as an argument. At the
-- very end, we create a 128-byte buffer with nothing in it and present -- very end, we create a 128-byte buffer with nothing in it and present