@@ -212,7 +212,8 @@ instance forall a. Serialize a => Serialize [a] where
212 case size :: Size a of
212 case size :: Size a of
213 Size f -> foldl' f (acc + (Unbox.sizeOf (Proxy :: Proxy Int))) xs
213 Size f -> foldl' f (acc + (Unbox.sizeOf (Proxy :: Proxy Int))) xs
215+ -- Inlining this causes large compilation times for tests
215− {-# INLINE deserialize #-}
216+ {-# INLINABLE deserialize #-}
216 deserialize off arr sz = do
217 deserialize off arr sz = do
217 len <- Unbox.peekByteIndex off arr :: IO Int
218 len <- Unbox.peekByteIndex off arr :: IO Int
218 let off1 = off + Unbox.sizeOf (Proxy :: Proxy Int)
219 let off1 = off + Unbox.sizeOf (Proxy :: Proxy Int)
@@ -229,7 +230,8 @@ instance forall a. Serialize a => Serialize [a] where
229 peekList (f . (x:)) o1 (i - 1)
230 peekList (f . (x:)) o1 (i - 1)
230 peekList id off1 len
231 peekList id off1 len
233+ -- Inlining this causes large compilation times for tests
232− {-# INLINE serialize #-}
234+ {-# INLINABLE serialize #-}
233 serialize off arr val = do
235 serialize off arr val = do
234 void $ serialize off arr (length val)
236 void $ serialize off arr (length val)
235 let off1 = off + Unbox.sizeOf (Proxy :: Proxy Int)
237 let off1 = off + Unbox.sizeOf (Proxy :: Proxy Int)