Fix the bug in Serialize.decode

This commit is contained in:
Adithya Kumar 2023-09-09 13:03:23 +05:30
parent aefdc8411d
commit e7b21daabe

View File

@ -260,6 +260,6 @@ pinnedEncode = encodeAs Pinned
decode :: Serialize a => Array Word8 -> a
decode arr@(Array {..}) = unsafeInlineIO $ do
let lenArr = Array.length arr
(off, val) <- deserialize 0 arrContents lenArr
(off, val) <- deserialize arrStart arrContents (arrStart + lenArr)
assertM(lenArr == off)
pure val