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