@@ -164,10 +164,10 @@ serialize_cap_expression cap params out_ptr = do
164164 (!out_ptr', _) <- runStateT ( serialize_cap_ops out_ptr (cap_ops cap) ) s_0
165165 return $! out_ptr'
166166
167−serialize_cap_ops :: MonadIO m => OutputBuffer -> CapOps -> EvalT m OutputBuffer
167+serialize_cap_ops :: OutputBuffer -> CapOps -> EvalT IO OutputBuffer
168168serialize_cap_ops out_ptr ops = foldM serialize_cap_op out_ptr ops
169169
170−serialize_cap_op :: MonadIO m => OutputBuffer -> CapOp -> EvalT m OutputBuffer
170+serialize_cap_op :: OutputBuffer -> CapOp -> EvalT IO OutputBuffer
171171serialize_cap_op !out_ptr ( Bytes !offset !byte_count !next_offset ) = do
172172 EvalState _ !cap _ <- get
173173 let ( !start_ptr, _ ) = cap_bytes cap