@@ -155,13 +155,13 @@ serialize_cap_ops :: MonadIO m => OutputBuffer -> CapOps -> EvalT m OutputBuffer
155155serialize_cap_ops out_ptr ops = foldM serialize_cap_op out_ptr ops
156156
157157serialize_cap_op :: MonadIO m => OutputBuffer -> CapOp -> EvalT m OutputBuffer
158−serialize_cap_op out_ptr ( Bytes !offset !byte_count !next_offset ) = do
159− (cap, _) <- ask
158+serialize_cap_op !out_ptr ( Bytes !offset !byte_count !next_offset ) = do
159+ ( !cap, _) <- ask
160160 let ( !start_ptr, _ ) = cap_bytes cap
161161 !src_ptr = start_ptr `plusPtr` offset
162162 !out_ptr' = out_ptr `plusPtr` next_offset
163163 liftIO $! memcpy out_ptr src_ptr byte_count
164− return out_ptr'
164+ return $! out_ptr'
165165serialize_cap_op out_ptr DecOut = do
166166 p <- pop
167167 let out_str = show p