My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(** JMAP Thread Type *)
2
3open Jmap_core
4
5(** Thread object type *)
6type t = {
7 id : Id.t;
8 email_ids : Id.t list;
9}
10
11(** Accessors *)
12val id : t -> Id.t
13val email_ids : t -> Id.t list
14
15(** Constructor *)
16val v : id:Id.t -> email_ids:Id.t list -> t
17
18(** Standard /get method *)
19module Get : sig
20 type request = t Standard_methods.Get.request
21 type response = t Standard_methods.Get.response
22
23 val request_of_json : Ezjsonm.value -> request
24 val response_of_json : Ezjsonm.value -> response
25end
26
27(** Parser submodule *)
28module Parser : sig
29 val of_json : Ezjsonm.value -> t
30 val to_json : t -> Ezjsonm.value
31end