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