@@ -166,7 +166,7 @@ serialize_cap_op !out_ptr ( Bytes !offset !byte_count !next_offset ) = do
166 let ( !start_ptr, _ ) = cap_bytes cap
166 let ( !start_ptr, _ ) = cap_bytes cap
167 !src_ptr = start_ptr `plusPtr` offset
167 !src_ptr = start_ptr `plusPtr` offset
168 !out_ptr' = out_ptr `plusPtr` next_offset
168 !out_ptr' = out_ptr `plusPtr` next_offset
169− liftIO $! memcpy out_ptr src_ptr byte_count
169+ liftIO $! memcpy out_ptr src_ptr (fromIntegral byte_count)
170 return $! out_ptr'
170 return $! out_ptr'
171serialize_cap_op out_ptr DecOut = do
171serialize_cap_op out_ptr DecOut = do