dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-05-25 22:54:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

remove unsafe

Browse Source
This commit is contained in:
Evgeny Poberezkin
2024-01-08 21:15:57 +00:00
parent 6abb6014e9
commit 9016344ae5
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Messaging/Builder.hs
+2 -6
View File
@@ -19,10 +19,6 @@ import Data.Word (Word16)
-- length-aware builder
data Builder = Builder {length :: Int, builder :: BB.Builder}
unsafeBuilder :: Int -> BB.Builder -> Builder
unsafeBuilder = Builder
{-# INLINE unsafeBuilder #-}
instance Semigroup Builder where
Builder l1 b1 <> Builder l2 b2 = Builder (l1 + l2) (b1 <> b2)
{-# INLINE (<>) #-}
@@ -30,9 +26,9 @@ instance Semigroup Builder where
instance Monoid Builder where
mempty = Builder 0 mempty
{-# INLINE mempty #-}
mconcat bldrs = Builder (sum ls) (mconcat bs)
mconcat bs = Builder (sum ls) (mconcat bbs)
where
(ls, bs) = foldr (\(Builder l b) ~(ls, bs) -> (l : ls, b : bs)) ([], []) bldrs
(ls, bbs) = foldr (\(Builder l b) ~(ls', bbs') -> (l : ls', b : bbs')) ([], []) bs
{-# INLINE mconcat #-}
byteString :: B.ByteString -> Builder