@@ -215,8 +215,7 @@ instance forall a. Serialize a => Serialize [a] where
215 -- Inlining this causes large compilation times for tests
215 -- Inlining this causes large compilation times for tests
216 {-# INLINABLE deserialize #-}
216 {-# INLINABLE deserialize #-}
217 deserialize off arr sz = do
217 deserialize off arr sz = do
218− len <- Unbox.peekByteIndex off arr :: IO Int
218+ (off1, len) <- deserialize off arr sz :: IO (Int, Int)
219− let off1 = off + Unbox.sizeOf (Proxy :: Proxy Int)
221 peekList f o i | i >= 3 = do
220 peekList f o i | i >= 3 = do
222 -- Unfold the loop three times
221 -- Unfold the loop three times