dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-07-21 06:51:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

core: fix WebRTC encryption, test (#3005)

Browse Source
This commit is contained in:
Evgeny Poberezkin
2023-09-02 23:34:00 +01:00
committed by GitHub
parent 461142b875
commit af02a92442
2 changed files with 50 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Mobile/WebRTC.hs
+1 -1
View File
@@ -34,7 +34,7 @@ cTransformMedia f cKey cFrame cFrameLen = do
frame <- getByteString cFrame cFrameLen
runExceptT (f key frame >>= liftIO . putFrame) >>= newCAString . fromLeft ""
where
putFrame s = when (B.length s < fromIntegral cFrameLen) $ putByteString cFrame s
putFrame s = when (B.length s <= fromIntegral cFrameLen) $ putByteString cFrame s
{-# INLINE cTransformMedia #-}
chatEncryptMedia :: ByteString -> ByteString -> ExceptT String IO ByteString