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

add monoidal unit for Bounded Builders

Browse source
This commit is contained in:
Alice McKean 2019-09-01 22:56:06 -07:00
parent 9a14600a38
commit 2eb37dfb7c
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Data/ByteArray/Builder/Small/Bounded.hs
View file

@ -22,6 +22,7 @@ module Data.ByteArray.Builder.Small.Bounded
, pasteGrowST , pasteGrowST
, pasteIO , pasteIO
-- * Combine -- * Combine
, empty
, append , append
-- * Bounds Manipulation -- * Bounds Manipulation
, (<=) , (<=)
@ -136,6 +137,10 @@ construct f = Builder
infixr 9 `append` infixr 9 `append`
-- | The monoidal unit of `append`
empty :: Builder 0
empty = Builder $ \_ off0 s0 -> (# s0, off0 #)
-- | Concatenate two builders. -- | Concatenate two builders.
append :: Builder n -> Builder m -> Builder (n + m) append :: Builder n -> Builder m -> Builder (n + m)
append (Builder f) (Builder g) = append (Builder f) (Builder g) =