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