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

Correct documentation typo. Improve fromBoundedOne.

Browse source
This commit is contained in:
Andrew Martin 2021-06-25 13:33:46 -04:00
parent dafb1bb37f
commit a51dcb65b6
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -345,7 +345,7 @@ fromBoundedOne (UnsafeBounded.Builder f) = Builder $ \buf0 off0 len0 cs0 s0 ->
(# sX, bufX, 0#, 4080#, Mutable buf0 off0 cs0 #) (# sX, bufX, 0#, 4080#, Mutable buf0 off0 cs0 #)
_ -> (# s0, buf0, off0, len0, cs0 #) _ -> (# s0, buf0, off0, len0, cs0 #)
in case f buf1 off1 s1 of in case f buf1 off1 s1 of
(# s2, off2 #) -> (# s2, buf1, off2, len1 -# (off2 -# off1), cs1 #) (# s2, _ #) -> (# s2, buf1, off1 +# 1#, len1 -# 1#, cs1 #)
-- | Create a builder from an unsliced byte sequence. Implemented with 'bytes'. -- | Create a builder from an unsliced byte sequence. Implemented with 'bytes'.
byteArray :: ByteArray -> Builder byteArray :: ByteArray -> Builder

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

@ -209,7 +209,7 @@ copyReverseCommits# marr prevOff (Immutable arr soff sz cs) s0 =
s1 -> copyReverseCommits# marr off cs s1 s1 -> copyReverseCommits# marr off cs s1
-- | Create a builder from a cons-list of 'Char'. These -- | Create a builder from a cons-list of 'Char'. These
-- are be UTF-8 encoded. -- must be UTF-8 encoded.
stringUtf8 :: String -> Builder stringUtf8 :: String -> Builder
{-# inline stringUtf8 #-} {-# inline stringUtf8 #-}
stringUtf8 cs = Builder (goString cs) stringUtf8 cs = Builder (goString cs)