Testing a Gemini codegen run
anil.recoil.org
1(** JMAP Binary Data Handling.
2 @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-6> RFC 8620, Section 6 *)
3
4open Jmap_types
5open Jmap_error
6
7(** Response from uploading binary data.
8 @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-6.1> RFC 8620, Section 6.1 *)
9module Upload_response : sig
10 type t
11
12 val account_id : t -> id
13 val blob_id : t -> id
14 val type_ : t -> string
15 val size : t -> uint
16
17 val v :
18 account_id:id ->
19 blob_id:id ->
20 type_:string ->
21 size:uint ->
22 unit ->
23 t
24end
25
26(** Arguments for Blob/copy.
27 @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-6.3> RFC 8620, Section 6.3 *)
28module Blob_copy_args : sig
29 type t
30
31 val from_account_id : t -> id
32 val account_id : t -> id
33 val blob_ids : t -> id list
34
35 val v :
36 from_account_id:id ->
37 account_id:id ->
38 blob_ids:id list ->
39 unit ->
40 t
41end
42
43(** Response for Blob/copy.
44 @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-6.3> RFC 8620, Section 6.3 *)
45module Blob_copy_response : sig
46 type t
47
48 val from_account_id : t -> id
49 val account_id : t -> id
50 val copied : t -> id id_map option
51 val not_copied : t -> Set_error.t id_map option
52
53 val v :
54 from_account_id:id ->
55 account_id:id ->
56 ?copied:id id_map ->
57 ?not_copied:Set_error.t id_map ->
58 unit ->
59 t
60end