@@ -164,10 +164,10 @@ serialize_cap_expression cap params out_ptr = do
164 (!out_ptr', _) <- runStateT ( serialize_cap_ops out_ptr (cap_ops cap) ) s_0
164 (!out_ptr', _) <- runStateT ( serialize_cap_ops out_ptr (cap_ops cap) ) s_0
165 return $! out_ptr'
165 return $! out_ptr'
167−serialize_cap_ops :: MonadIO m => OutputBuffer -> CapOps -> EvalT m OutputBuffer
167+serialize_cap_ops :: OutputBuffer -> CapOps -> EvalT IO OutputBuffer
168serialize_cap_ops out_ptr ops = foldM serialize_cap_op out_ptr ops
168serialize_cap_ops out_ptr ops = foldM serialize_cap_op out_ptr ops
170−serialize_cap_op :: MonadIO m => OutputBuffer -> CapOp -> EvalT m OutputBuffer
170+serialize_cap_op :: OutputBuffer -> CapOp -> EvalT IO OutputBuffer
171serialize_cap_op !out_ptr ( Bytes !offset !byte_count !next_offset ) = do
171serialize_cap_op !out_ptr ( Bytes !offset !byte_count !next_offset ) = do
172 EvalState _ !cap _ <- get
172 EvalState _ !cap _ <- get
173 let ( !start_ptr, _ ) = cap_bytes cap
173 let ( !start_ptr, _ ) = cap_bytes cap