composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-09-11 11:37:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

Bug fix offset calculation

Browse Source
This commit is contained in:
Adithya Kumar 2023-08-28 19:26:09 +05:30
parent 960dc0b738
commit 0650565799
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/src/Streamly/Internal/Data/Serialize/RecordTH2.hs
View File

@ -397,7 +397,9 @@ mkDeserializeExpr initialOff endOff deserializeWithKeys con = do
if hlen1 == $(litIntegral hlen)
then if $(xorCmp hval hOff _arr)
then do
let $(varP (makeI 0)) = $(litIntegral (hlen + 4 + 4))
let $(varP (makeI 0)) =
$(varE initialOff) +
$(litIntegral (hlen + 4 + 4))
$(mkDeserializeExprOne 'deserializeWithSize con)
else $(varE deserializeWithKeys)
$(varE hOff)