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