My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(** JMAP Response Object *)
2
3(** Main response type *)
4type t = {
5 method_responses : Jmap_invocation.response_list;
6 created_ids : (Jmap_id.t * Jmap_id.t) list option;
7 session_state : string;
8}
9
10(** Accessors *)
11val method_responses : t -> Jmap_invocation.response_list
12val created_ids : t -> (Jmap_id.t * Jmap_id.t) list option
13val session_state : t -> string
14
15(** Constructor *)
16val make : ?created_ids:(Jmap_id.t * Jmap_id.t) list option -> method_responses:Jmap_invocation.response_list -> session_state:string -> unit -> t
17
18(** Parser submodule *)
19module Parser : sig
20 (** Parse response from JSON value *)
21 val of_json : Ezjsonm.value -> t
22
23 (** Parse response from JSON string *)
24 val of_string : string -> t
25
26 (** Parse response from input channel *)
27 val of_channel : in_channel -> t
28end
29
30(** Serialization *)
31val to_json : t -> Ezjsonm.value