commit 79ea0c98ef2a2a7349b0a71ff1d59907a29f0adb · anil.recoil.org/gemini-codegen-test

+43 -52

output/jmap.mli

···

       27
       27
        
       module Methods = Jmap_methods

     

       28
       28
        
       module Binary = Jmap_binary

     

       29
       29
        
       module Push = Jmap_push

     

       30
       30
       -
       

     

       31
       31
       -
       (** {1 Mail Extension (RFC 8621)} *)

     

       32
       32
       -
       

     

       33
       33
       -
       module Email = Jmap_email

     

       34
       34
       -
       

     

       35
       35
       -
       (** {1 Unix Implementation Interface} *)

     

       36
       36
       -
       

     

       37
       37
       -
       module Unix = Jmap_unix

     

       38
       38
       -
       

     

       39
       39
       -
       (** {1 Example Usage Sketch}

     

       30
       30
       +
       module Vacation = Jmap_vacation

     

       40
       31
        
       

     

       32
       32
       +
       (**

     

       41
       33
        
       {[ 

     

       42
       34
        
         (* OCaml 5.1 required for Lwt let operators *) 

     

       43
       35
        
         open Lwt.Syntax 

     
···

       54
       46
        
           in 

     

       55
       47
        
           (* Construct the filter *) 

     

       56
       48
        
           let filter : filter = 

     

       57
       57
       -
             Filter_operator {

     

       58
       58
       -
               operator = `AND;

     

       59
       59
       -
               conditions = [

     

       49
       49
       +
             Filter_operator (Filter_operator.v

     

       50
       50
       +
               ~operator:`AND

     

       51
       51
       +
               ~conditions:[

     

       60
       52
        
                 Filter_condition (Yojson.Safe.to_basic (`Assoc [

     

       61
       53
        
                   ("from", `String sender_email);

     

       62
       54
        
                 ]));

     
···

       65
       57
        
                   ("value", `Bool false);

     

       66
       58
        
                 ]));

     

       67
       59
        
               ]

     

       68
       68
       -
             }

     

       60
       60
       +
               ())

     

       69
       61
        
           in

     

       70
       62
        
           (* Prepare the Email/query invocation *) 

     

       71
       71
       -
           let query_args : email_query_args = { 

     

       72
       72
       -
               query_account_id = primary_mail_account_id;

     

       73
       73
       -
               query_filter = Some filter;

     

       74
       74
       -
               query_sort = Some [ { property = "receivedAt"; is_ascending = Some false; collation = None; keyword = None; other_fields = Hashtbl.create 0 } ];

     

       75
       75
       -
               query_position = Some 0;

     

       76
       76
       -
               query_anchor = None;

     

       77
       77
       -
               query_anchor_offset = None;

     

       78
       78
       -
               query_limit = Some 20; (* Get latest 20 *)

     

       79
       79
       -
               query_calculate_total = Some false;

     

       80
       80
       -
               query_collapse_threads = Some false;

     

       81
       81
       -
               query_sort_as_tree = None;

     

       82
       82
       -
               query_filter_as_tree = None;

     

       83
       83
       -
           } in

     

       84
       84
       -
           let query_invocation : invocation = {

     

       85
       85
       -
             method_name = "Email/query";

     

       86
       86
       -
             arguments = (* Yojson conversion of query_args needed here *);

     

       87
       87
       -
             method_call_id = "q1";

     

       88
       88
       -
           } in

     

       63
       63
       +
           let query_args = Query_args.v 

     

       64
       64
       +
             ~account_id:primary_mail_account_id

     

       65
       65
       +
             ~filter

     

       66
       66
       +
             ~sort:[

     

       67
       67
       +
               Comparator.v

     

       68
       68
       +
                 ~property:"receivedAt" 

     

       69
       69
       +
                 ~is_ascending:false

     

       70
       70
       +
                 ()

     

       71
       71
       +
             ]

     

       72
       72
       +
             ~position:0

     

       73
       73
       +
             ~limit:20 (* Get latest 20 *)

     

       74
       74
       +
             ~calculate_total:false

     

       75
       75
       +
             ~collapse_threads:false

     

       76
       76
       +
             ()

     

       77
       77
       +
           in

     

       78
       78
       +
           let query_invocation = Invocation.v 

     

       79
       79
       +
             ~method_name:"Email/query"

     

       80
       80
       +
             ~arguments:(* Yojson conversion of query_args needed here *)

     

       81
       81
       +
             ~method_call_id:"q1"

     

       82
       82
       +
             ()

     

       83
       83
       +
           in

     

       89
       84
        
       

     

       90
       85
        
           (* Prepare the Email/get invocation using a back-reference *) 

     

       91
       91
       -
           let get_args : email_get_args = {

     

       92
       92
       -
             get_account_id = primary_mail_account_id;

     

       93
       93
       -
             get_ids = None; (* Use back-reference instead *)

     

       94
       94
       -
             get_properties = Some ["id"; "subject"; "receivedAt"; "from"];

     

       95
       95
       -
             get_body_properties = None;

     

       96
       96
       -
             get_fetch_text_body_values = None;

     

       97
       97
       -
             get_fetch_html_body_values = None;

     

       98
       98
       -
             get_fetch_all_body_values = None;

     

       99
       99
       -
             get_max_body_value_bytes = None;

     

       100
       100
       -
           } in

     

       101
       101
       -
           let get_invocation : invocation = {

     

       102
       102
       -
             method_name = "Email/get";

     

       103
       103
       -
             arguments = (* Yojson conversion of get_args, with ids replaced by a ResultReference to q1 needed here *);

     

       104
       104
       -
             method_call_id = "g1";

     

       105
       105
       -
           } in

     

       86
       86
       +
           let get_args = Get_args.v

     

       87
       87
       +
             ~account_id:primary_mail_account_id

     

       88
       88
       +
             ~properties:["id"; "subject"; "receivedAt"; "from"]

     

       89
       89
       +
             ()

     

       90
       90
       +
           in

     

       91
       91
       +
           let get_invocation = Invocation.v

     

       92
       92
       +
             ~method_name:"Email/get"

     

       93
       93
       +
             ~arguments:(* Yojson conversion of get_args, with ids replaced by a ResultReference to q1 needed here *)

     

       94
       94
       +
             ~method_call_id:"g1"

     

       95
       95
       +
             ()

     

       96
       96
       +
           in

     

       106
       97
        
       

     

       107
       98
        
           (* Prepare the JMAP request *) 

     

       108
       108
       -
           let request : request = { 

     

       109
       109
       -
             using = [ Jmap.Session.capability_core; Email.capability_mail ];

     

       110
       110
       -
             method_calls = [ query_invocation; get_invocation ];

     

       111
       111
       -
             created_ids = None;

     

       112
       112
       -
           } in

     

       99
       99
       +
           let request = Request.v

     

       100
       100
       +
             ~using:[ capability_core; Email.capability_mail ]

     

       101
       101
       +
             ~method_calls:[ query_invocation; get_invocation ]

     

       102
       102
       +
             ()

     

       103
       103
       +
           in

     

       113
       104
        
       

     

       114
       105
        
           (* Send the request *) 

     

       115
       106
        
           let* response = Jmap.Unix.request ctx request in

+46 -17

output/jmap_binary.mli

···

       6
       6
        
       

     

       7
       7
        
       (** Response from uploading binary data.

     

       8
       8
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-6.1> RFC 8620, Section 6.1 *)

     

       9
       9
       -
       type upload_response = {

     

       10
       10
       -
         upload_resp_account_id : id;

     

       11
       11
       -
         upload_resp_blob_id : id;

     

       12
       12
       -
         upload_resp_type : string;

     

       13
       13
       -
         upload_resp_size : uint;

     

       14
       14
       -
       }

     

       9
       9
       +
       module Upload_response : sig

     

       10
       10
       +
         type t

     

       11
       11
       +
         

     

       12
       12
       +
         val account_id : t -> id

     

       13
       13
       +
         val blob_id : t -> id

     

       14
       14
       +
         val type_ : t -> string

     

       15
       15
       +
         val size : t -> uint

     

       16
       16
       +
         

     

       17
       17
       +
         val v :

     

       18
       18
       +
           account_id:id ->

     

       19
       19
       +
           blob_id:id ->

     

       20
       20
       +
           type_:string ->

     

       21
       21
       +
           size:uint ->

     

       22
       22
       +
           unit ->

     

       23
       23
       +
           t

     

       24
       24
       +
       end

     

       15
       25
        
       

     

       16
       26
        
       (** Arguments for Blob/copy.

     

       17
       27
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-6.3> RFC 8620, Section 6.3 *)

     

       18
       18
       -
       type blob_copy_args = {

     

       19
       19
       -
         blob_copy_from_account_id : id;

     

       20
       20
       -
         blob_copy_account_id : id;

     

       21
       21
       -
         blob_copy_blob_ids : id list;

     

       22
       22
       -
       }

     

       28
       28
       +
       module Blob_copy_args : sig

     

       29
       29
       +
         type t

     

       30
       30
       +
         

     

       31
       31
       +
         val from_account_id : t -> id

     

       32
       32
       +
         val account_id : t -> id

     

       33
       33
       +
         val blob_ids : t -> id list

     

       34
       34
       +
         

     

       35
       35
       +
         val v :

     

       36
       36
       +
           from_account_id:id ->

     

       37
       37
       +
           account_id:id ->

     

       38
       38
       +
           blob_ids:id list ->

     

       39
       39
       +
           unit ->

     

       40
       40
       +
           t

     

       41
       41
       +
       end

     

       23
       42
        
       

     

       24
       43
        
       (** Response for Blob/copy.

     

       25
       44
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-6.3> RFC 8620, Section 6.3 *)

     

       26
       26
       -
       type blob_copy_response = {

     

       27
       27
       -
         blob_copy_resp_from_account_id : id;

     

       28
       28
       -
         blob_copy_resp_account_id : id;

     

       29
       29
       -
         blob_copy_resp_copied : id id_map option;

     

       30
       30
       -
         blob_copy_resp_not_copied : set_error id_map option;

     

       31
       31
       -
       }
     

       45
       45
       +
       module Blob_copy_response : sig

     

       46
       46
       +
         type t

     

       47
       47
       +
         

     

       48
       48
       +
         val from_account_id : t -> id

     

       49
       49
       +
         val account_id : t -> id

     

       50
       50
       +
         val copied : t -> id id_map option

     

       51
       51
       +
         val not_copied : t -> Set_error.t id_map option

     

       52
       52
       +
         

     

       53
       53
       +
         val v :

     

       54
       54
       +
           from_account_id:id ->

     

       55
       55
       +
           account_id:id ->

     

       56
       56
       +
           ?copied:id id_map ->

     

       57
       57
       +
           ?not_copied:Set_error.t id_map ->

     

       58
       58
       +
           unit ->

     

       59
       59
       +
           t

     

       60
       60
       +
       end

+68 -34

output/jmap_error.mli

···

       2
       2
        
       

     

       3
       3
        
       open Jmap_types

     

       4
       4
        
       

     

       5
       5
       -
       (** Problem details object for HTTP-level errors.

     

       6
       6
       -
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-3.6.1> RFC 8620, Section 3.6.1

     

       7
       7
       -
           @see <https://www.rfc-editor.org/rfc/rfc7807.html> RFC 7807 *)

     

       8
       8
       -
       type problem_details = {

     

       9
       9
       -
         problem_type : string; (** The "type" field from RFC 7807. *)

     

       10
       10
       -
         status : int option; (** The "status" field. *)

     

       11
       11
       -
         detail : string option; (** The "detail" field. *)

     

       12
       12
       -
         limit : string option; (** For "urn:ietf:params:jmap:error:limit" *)

     

       13
       13
       -
         other_fields : Yojson.Safe.t string_map; (** Catch-all for extra fields *)

     

       14
       14
       -
       }

     

       15
       15
       -
       

     

       16
       5
        
       (** Standard Method-level error types.

     

       17
       6
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-3.6.2> RFC 8620, Section 3.6.2 *)

     

       18
       7
        
       type method_error_type = [

     
···

       38
       27
        
         | `Other_method_error of string (* For future or custom errors *)

     

       39
       28
        
       ]

     

       40
       29
        
       

     

       41
       41
       -
       (** Description for method errors. May contain additional details.

     

       42
       42
       -
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-3.6.2> RFC 8620, Section 3.6.2 *)

     

       43
       43
       -
       type method_error_description = {

     

       44
       44
       -
         description : string option;

     

       45
       45
       -
       }

     

       46
       46
       -
       

     

       47
       47
       -
       (** Represents a method-level error response invocation part.

     

       48
       48
       -
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-3.6.2> RFC 8620, Section 3.6.2 *)

     

       49
       49
       -
       type method_error = {

     

       50
       50
       -
         err_type : method_error_type;

     

       51
       51
       -
         err_description : method_error_description option;

     

       52
       52
       -
       }

     

       53
       53
       -
       

     

       54
       30
        
       (** Standard SetError types.

     

       55
       31
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.3> RFC 8620, Section 5.3 *)

     

       56
       32
        
       type set_error_type = [

     
···

       80
       56
        
         | `Other_set_error of string (* For future or custom errors *)

     

       81
       57
        
       ]

     

       82
       58
        
       

     

       59
       59
       +
       (** Problem details object for HTTP-level errors.

     

       60
       60
       +
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-3.6.1> RFC 8620, Section 3.6.1

     

       61
       61
       +
           @see <https://www.rfc-editor.org/rfc/rfc7807.html> RFC 7807 *)

     

       62
       62
       +
       module Problem_details : sig

     

       63
       63
       +
         type t

     

       64
       64
       +
       

     

       65
       65
       +
         val problem_type : t -> string

     

       66
       66
       +
         val status : t -> int option

     

       67
       67
       +
         val detail : t -> string option

     

       68
       68
       +
         val limit : t -> string option

     

       69
       69
       +
         val other_fields : t -> Yojson.Safe.t string_map

     

       70
       70
       +
         

     

       71
       71
       +
         val v : 

     

       72
       72
       +
           ?status:int ->

     

       73
       73
       +
           ?detail:string ->

     

       74
       74
       +
           ?limit:string ->

     

       75
       75
       +
           ?other_fields:Yojson.Safe.t string_map ->

     

       76
       76
       +
           string ->

     

       77
       77
       +
           t

     

       78
       78
       +
       end

     

       79
       79
       +
       

     

       80
       80
       +
       (** Description for method errors. May contain additional details.

     

       81
       81
       +
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-3.6.2> RFC 8620, Section 3.6.2 *)

     

       82
       82
       +
       module Method_error_description : sig

     

       83
       83
       +
         type t

     

       84
       84
       +
         

     

       85
       85
       +
         val description : t -> string option

     

       86
       86
       +
         

     

       87
       87
       +
         val v : ?description:string -> unit -> t

     

       88
       88
       +
       end

     

       89
       89
       +
       

     

       90
       90
       +
       (** Represents a method-level error response invocation part.

     

       91
       91
       +
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-3.6.2> RFC 8620, Section 3.6.2 *)

     

       92
       92
       +
       module Method_error : sig

     

       93
       93
       +
         type t

     

       94
       94
       +
         

     

       95
       95
       +
         val type_ : t -> method_error_type

     

       96
       96
       +
         val description : t -> Method_error_description.t option

     

       97
       97
       +
         

     

       98
       98
       +
         val v : 

     

       99
       99
       +
           ?description:Method_error_description.t ->

     

       100
       100
       +
           method_error_type ->

     

       101
       101
       +
           t

     

       102
       102
       +
       end

     

       103
       103
       +
       

     

       83
       104
        
       (** SetError object.

     

       84
       105
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.3> RFC 8620, Section 5.3 *)

     

       85
       85
       -
       type set_error = {

     

       86
       86
       -
         set_err_type : set_error_type;

     

       87
       87
       -
         set_err_description : string option;

     

       88
       88
       -
         set_err_properties : string list option; (** For InvalidProperties *)

     

       89
       89
       -
         set_err_existing_id : id option; (** For AlreadyExists *)

     

       90
       90
       -
         set_err_max_recipients : uint option; (** For TooManyRecipients *)

     

       91
       91
       -
         set_err_invalid_recipients : string list option; (** For InvalidRecipients *)

     

       92
       92
       -
         set_err_max_size : uint option; (** For TooLarge *)

     

       93
       93
       -
         set_err_not_found_blob_ids : id list option; (** For BlobNotFound *)

     

       94
       94
       -
       }
     

       106
       106
       +
       module Set_error : sig

     

       107
       107
       +
         type t

     

       108
       108
       +
         

     

       109
       109
       +
         val type_ : t -> set_error_type

     

       110
       110
       +
         val description : t -> string option

     

       111
       111
       +
         val properties : t -> string list option

     

       112
       112
       +
         val existing_id : t -> id option

     

       113
       113
       +
         val max_recipients : t -> uint option

     

       114
       114
       +
         val invalid_recipients : t -> string list option

     

       115
       115
       +
         val max_size : t -> uint option

     

       116
       116
       +
         val not_found_blob_ids : t -> id list option

     

       117
       117
       +
         

     

       118
       118
       +
         val v :

     

       119
       119
       +
           ?description:string ->

     

       120
       120
       +
           ?properties:string list ->

     

       121
       121
       +
           ?existing_id:id ->

     

       122
       122
       +
           ?max_recipients:uint ->

     

       123
       123
       +
           ?invalid_recipients:string list ->

     

       124
       124
       +
           ?max_size:uint ->

     

       125
       125
       +
           ?not_found_blob_ids:id list ->

     

       126
       126
       +
           set_error_type ->

     

       127
       127
       +
           t

     

       128
       128
       +
       end

+24 -12

output/jmap_identity.mli

···

       46
       46
        
           @see <https://www.rfc-editor.org/rfc/rfc8621.html#section-6.3> RFC 8621, Section 6.3 *)

     

       47
       47
        
       type identity_updated_info = identity (* Contains only changed server-set props *)

     

       48
       48
        
       

     

       49
       49
       -
       (** Identity/get: Args type (specialized from ['record get_args]). *)

     

       50
       50
       -
       type identity_get_args = identity get_args

     

       49
       49
       +
       (** Identity/get: Args type (specialized from ['record Get_args.t]). *)

     

       50
       50
       +
       module Identity_get_args : sig

     

       51
       51
       +
         type t = identity Get_args.t

     

       52
       52
       +
       end

     

       51
       53
        
       

     

       52
       52
       -
       (** Identity/get: Response type (specialized from ['record get_response]). *)

     

       53
       53
       -
       type identity_get_response = identity get_response

     

       54
       54
       +
       (** Identity/get: Response type (specialized from ['record Get_response.t]). *)

     

       55
       55
       +
       module Identity_get_response : sig

     

       56
       56
       +
         type t = identity Get_response.t

     

       57
       57
       +
       end

     

       54
       58
        
       

     

       55
       55
       -
       (** Identity/changes: Args type (specialized from [changes_args]). *)

     

       56
       56
       -
       type identity_changes_args = changes_args

     

       59
       59
       +
       (** Identity/changes: Args type (specialized from [Changes_args.t]). *)

     

       60
       60
       +
       module Identity_changes_args : sig

     

       61
       61
       +
         type t = Changes_args.t

     

       62
       62
       +
       end

     

       57
       63
        
       

     

       58
       58
       -
       (** Identity/changes: Response type (specialized from [changes_response]). *)

     

       59
       59
       -
       type identity_changes_response = changes_response

     

       64
       64
       +
       (** Identity/changes: Response type (specialized from [Changes_response.t]). *)

     

       65
       65
       +
       module Identity_changes_response : sig

     

       66
       66
       +
         type t = Changes_response.t

     

       67
       67
       +
       end

     

       60
       68
        
       

     

       61
       61
       -
       (** Identity/set: Args type (specialized from [('c, 'u) set_args]). *)

     

       62
       62
       -
       type identity_set_args = (identity_create, identity_update) set_args

     

       69
       69
       +
       (** Identity/set: Args type (specialized from [('c, 'u) Set_args.t]). *)

     

       70
       70
       +
       module Identity_set_args : sig

     

       71
       71
       +
         type t = (identity_create, identity_update) Set_args.t

     

       72
       72
       +
       end

     

       63
       73
        
       

     

       64
       64
       -
       (** Identity/set: Response type (specialized from [('c, 'u) set_response]). *)

     

       65
       65
       -
       type identity_set_response = (identity_created_info, identity_updated_info) set_response
     

       74
       74
       +
       (** Identity/set: Response type (specialized from [('c, 'u) Set_response.t]). *)

     

       75
       75
       +
       module Identity_set_response : sig

     

       76
       76
       +
         type t = (identity_created_info, identity_updated_info) Set_response.t

     

       77
       77
       +
       end

+40 -20

output/jmap_mailbox.mli

···

       78
       78
        
         filter_is_subscribed : bool option;

     

       79
       79
        
       }

     

       80
       80
        
       

     

       81
       81
       -
       (** Mailbox/get: Args type (specialized from ['record get_args]). *)

     

       82
       82
       -
       type mailbox_get_args = mailbox get_args

     

       81
       81
       +
       (** Mailbox/get: Args type (specialized from ['record Get_args.t]). *)

     

       82
       82
       +
       module Mailbox_get_args : sig

     

       83
       83
       +
         type t = mailbox Get_args.t

     

       84
       84
       +
       end

     

       83
       85
        
       

     

       84
       84
       -
       (** Mailbox/get: Response type (specialized from ['record get_response]). *)

     

       85
       85
       -
       type mailbox_get_response = mailbox get_response

     

       86
       86
       +
       (** Mailbox/get: Response type (specialized from ['record Get_response.t]). *)

     

       87
       87
       +
       module Mailbox_get_response : sig

     

       88
       88
       +
         type t = mailbox Get_response.t

     

       89
       89
       +
       end

     

       86
       90
        
       

     

       87
       87
       -
       (** Mailbox/changes: Args type (specialized from [changes_args]). *)

     

       88
       88
       -
       type mailbox_changes_args = changes_args

     

       91
       91
       +
       (** Mailbox/changes: Args type (specialized from [Changes_args.t]). *)

     

       92
       92
       +
       module Mailbox_changes_args : sig

     

       93
       93
       +
         type t = Changes_args.t

     

       94
       94
       +
       end

     

       89
       95
        
       

     

       90
       90
       -
       (** Mailbox/changes: Response type (specialized from [changes_response]). *)

     

       91
       91
       -
       type mailbox_changes_response = changes_response

     

       96
       96
       +
       (** Mailbox/changes: Response type (specialized from [Changes_response.t]). *)

     

       97
       97
       +
       module Mailbox_changes_response : sig

     

       98
       98
       +
         type t = Changes_response.t

     

       99
       99
       +
       end

     

       92
       100
        
       

     

       93
       93
       -
       (** Mailbox/query: Args type (specialized from [query_args]). *)

     

       94
       94
       -
       type mailbox_query_args = query_args

     

       101
       101
       +
       (** Mailbox/query: Args type (specialized from [Query_args.t]). *)

     

       102
       102
       +
       module Mailbox_query_args : sig

     

       103
       103
       +
         type t = Query_args.t

     

       104
       104
       +
       end

     

       95
       105
        
       

     

       96
       96
       -
       (** Mailbox/query: Response type (specialized from [query_response]). *)

     

       97
       97
       -
       type mailbox_query_response = query_response

     

       106
       106
       +
       (** Mailbox/query: Response type (specialized from [Query_response.t]). *)

     

       107
       107
       +
       module Mailbox_query_response : sig

     

       108
       108
       +
         type t = Query_response.t

     

       109
       109
       +
       end

     

       98
       110
        
       

     

       99
       99
       -
       (** Mailbox/queryChanges: Args type (specialized from [query_changes_args]). *)

     

       100
       100
       -
       type mailbox_query_changes_args = query_changes_args

     

       111
       111
       +
       (** Mailbox/queryChanges: Args type (specialized from [Query_changes_args.t]). *)

     

       112
       112
       +
       module Mailbox_query_changes_args : sig

     

       113
       113
       +
         type t = Query_changes_args.t

     

       114
       114
       +
       end

     

       101
       115
        
       

     

       102
       102
       -
       (** Mailbox/queryChanges: Response type (specialized from [query_changes_response]). *)

     

       103
       103
       -
       type mailbox_query_changes_response = query_changes_response

     

       116
       116
       +
       (** Mailbox/queryChanges: Response type (specialized from [Query_changes_response.t]). *)

     

       117
       117
       +
       module Mailbox_query_changes_response : sig

     

       118
       118
       +
         type t = Query_changes_response.t

     

       119
       119
       +
       end

     

       104
       120
        
       

     

       105
       105
       -
       (** Mailbox/set: Args type (specialized from [('c, 'u) set_args]). *)

     

       106
       106
       -
       type mailbox_set_args = (mailbox_create, mailbox_update) set_args

     

       121
       121
       +
       (** Mailbox/set: Args type (specialized from [('c, 'u) Set_args.t]). *)

     

       122
       122
       +
       module Mailbox_set_args : sig

     

       123
       123
       +
         type t = (mailbox_create, mailbox_update) Set_args.t

     

       124
       124
       +
       end

     

       107
       125
        
       

     

       108
       108
       -
       (** Mailbox/set: Response type (specialized from [('c, 'u) set_response]). *)

     

       109
       109
       -
       type mailbox_set_response = (mailbox_created_info, mailbox_updated_info) set_response
     

       126
       126
       +
       (** Mailbox/set: Response type (specialized from [('c, 'u) Set_response.t]). *)

     

       127
       127
       +
       module Mailbox_set_response : sig

     

       128
       128
       +
         type t = (mailbox_created_info, mailbox_updated_info) Set_response.t

     

       129
       129
       +
       end

+296 -127

output/jmap_methods.mli

···

       10
       10
        
       

     

       11
       11
        
       (** Arguments for /get methods.

     

       12
       12
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.1> RFC 8620, Section 5.1 *)

     

       13
       13
       -
       type 'record get_args = {

     

       14
       14
       -
         get_account_id : id;

     

       15
       15
       -
         get_ids : id list option;

     

       16
       16
       -
         get_properties : string list option;

     

       17
       17
       -
       }

     

       13
       13
       +
       module Get_args : sig

     

       14
       14
       +
         type 'record t

     

       15
       15
       +
         

     

       16
       16
       +
         val account_id : 'record t -> id

     

       17
       17
       +
         val ids : 'record t -> id list option

     

       18
       18
       +
         val properties : 'record t -> string list option

     

       19
       19
       +
         

     

       20
       20
       +
         val v :

     

       21
       21
       +
           account_id:id ->

     

       22
       22
       +
           ?ids:id list ->

     

       23
       23
       +
           ?properties:string list ->

     

       24
       24
       +
           unit ->

     

       25
       25
       +
           'record t

     

       26
       26
       +
       end

     

       18
       27
        
       

     

       19
       28
        
       (** Response for /get methods.

     

       20
       29
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.1> RFC 8620, Section 5.1 *)

     

       21
       21
       -
       type 'record get_response = {

     

       22
       22
       -
         get_resp_account_id : id;

     

       23
       23
       -
         get_resp_state : string;

     

       24
       24
       -
         get_resp_list : 'record list;

     

       25
       25
       -
         get_resp_not_found : id list;

     

       26
       26
       -
       }

     

       30
       30
       +
       module Get_response : sig

     

       31
       31
       +
         type 'record t

     

       32
       32
       +
         

     

       33
       33
       +
         val account_id : 'record t -> id

     

       34
       34
       +
         val state : 'record t -> string

     

       35
       35
       +
         val list : 'record t -> 'record list

     

       36
       36
       +
         val not_found : 'record t -> id list

     

       37
       37
       +
         

     

       38
       38
       +
         val v :

     

       39
       39
       +
           account_id:id ->

     

       40
       40
       +
           state:string ->

     

       41
       41
       +
           list:'record list ->

     

       42
       42
       +
           not_found:id list ->

     

       43
       43
       +
           unit ->

     

       44
       44
       +
           'record t

     

       45
       45
       +
       end

     

       27
       46
        
       

     

       28
       47
        
       (** Arguments for /changes methods.

     

       29
       48
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.2> RFC 8620, Section 5.2 *)

     

       30
       30
       -
       type changes_args = {

     

       31
       31
       -
         changes_account_id : id;

     

       32
       32
       -
         changes_since_state : string;

     

       33
       33
       -
         changes_max_changes : uint option;

     

       34
       34
       -
       }

     

       49
       49
       +
       module Changes_args : sig

     

       50
       50
       +
         type t

     

       51
       51
       +
         

     

       52
       52
       +
         val account_id : t -> id

     

       53
       53
       +
         val since_state : t -> string

     

       54
       54
       +
         val max_changes : t -> uint option

     

       55
       55
       +
         

     

       56
       56
       +
         val v :

     

       57
       57
       +
           account_id:id ->

     

       58
       58
       +
           since_state:string ->

     

       59
       59
       +
           ?max_changes:uint ->

     

       60
       60
       +
           unit ->

     

       61
       61
       +
           t

     

       62
       62
       +
       end

     

       35
       63
        
       

     

       36
       64
        
       (** Response for /changes methods.

     

       37
       65
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.2> RFC 8620, Section 5.2 *)

     

       38
       38
       -
       type changes_response = {

     

       39
       39
       -
         changes_resp_account_id : id;

     

       40
       40
       -
         changes_resp_old_state : string;

     

       41
       41
       -
         changes_resp_new_state : string;

     

       42
       42
       -
         changes_resp_has_more_changes : bool;

     

       43
       43
       -
         changes_resp_created : id list;

     

       44
       44
       -
         changes_resp_updated : id list;

     

       45
       45
       -
         changes_resp_destroyed : id list;

     

       46
       46
       -
         changes_resp_updated_properties : string list option; (* Mailbox/changes specific *)

     

       47
       47
       -
       }

     

       66
       66
       +
       module Changes_response : sig

     

       67
       67
       +
         type t

     

       68
       68
       +
         

     

       69
       69
       +
         val account_id : t -> id

     

       70
       70
       +
         val old_state : t -> string

     

       71
       71
       +
         val new_state : t -> string

     

       72
       72
       +
         val has_more_changes : t -> bool

     

       73
       73
       +
         val created : t -> id list

     

       74
       74
       +
         val updated : t -> id list

     

       75
       75
       +
         val destroyed : t -> id list

     

       76
       76
       +
         val updated_properties : t -> string list option

     

       77
       77
       +
         

     

       78
       78
       +
         val v :

     

       79
       79
       +
           account_id:id ->

     

       80
       80
       +
           old_state:string ->

     

       81
       81
       +
           new_state:string ->

     

       82
       82
       +
           has_more_changes:bool ->

     

       83
       83
       +
           created:id list ->

     

       84
       84
       +
           updated:id list ->

     

       85
       85
       +
           destroyed:id list ->

     

       86
       86
       +
           ?updated_properties:string list ->

     

       87
       87
       +
           unit ->

     

       88
       88
       +
           t

     

       89
       89
       +
       end

     

       48
       90
        
       

     

       49
       91
        
       (** Patch object for /set update.

     

       50
       92
        
           A list of (JSON Pointer path, value) pairs.

     
···

       55
       97
        
           ['create_record] is the record type without server-set/immutable fields.

     

       56
       98
        
           ['update_record] is the patch object type (usually [patch_object]).

     

       57
       99
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.3> RFC 8620, Section 5.3 *)

     

       58
       58
       -
       type ('create_record, 'update_record) set_args = {

     

       59
       59
       -
         set_account_id : id;

     

       60
       60
       -
         set_if_in_state : string option;

     

       61
       61
       -
         set_create : 'create_record id_map option;

     

       62
       62
       -
         set_update : 'update_record id_map option;

     

       63
       63
       -
         set_destroy : id list option;

     

       64
       64
       -
         set_on_success_destroy_original : bool option; (* For /copy *)

     

       65
       65
       -
         set_destroy_from_if_in_state : string option; (* For /copy *)

     

       66
       66
       -
         set_on_destroy_remove_emails : bool option; (* For Mailbox/set *)

     

       67
       67
       -
       }

     

       100
       100
       +
       module Set_args : sig

     

       101
       101
       +
         type ('create_record, 'update_record) t

     

       102
       102
       +
         

     

       103
       103
       +
         val account_id : ('a, 'b) t -> id

     

       104
       104
       +
         val if_in_state : ('a, 'b) t -> string option

     

       105
       105
       +
         val create : ('a, 'b) t -> 'a id_map option

     

       106
       106
       +
         val update : ('a, 'b) t -> 'b id_map option

     

       107
       107
       +
         val destroy : ('a, 'b) t -> id list option

     

       108
       108
       +
         val on_success_destroy_original : ('a, 'b) t -> bool option

     

       109
       109
       +
         val destroy_from_if_in_state : ('a, 'b) t -> string option

     

       110
       110
       +
         val on_destroy_remove_emails : ('a, 'b) t -> bool option

     

       111
       111
       +
         

     

       112
       112
       +
         val v :

     

       113
       113
       +
           account_id:id ->

     

       114
       114
       +
           ?if_in_state:string ->

     

       115
       115
       +
           ?create:'a id_map ->

     

       116
       116
       +
           ?update:'b id_map ->

     

       117
       117
       +
           ?destroy:id list ->

     

       118
       118
       +
           ?on_success_destroy_original:bool ->

     

       119
       119
       +
           ?destroy_from_if_in_state:string ->

     

       120
       120
       +
           ?on_destroy_remove_emails:bool ->

     

       121
       121
       +
           unit ->

     

       122
       122
       +
           ('a, 'b) t

     

       123
       123
       +
       end

     

       68
       124
        
       

     

       69
       125
        
       (** Response for /set methods.

     

       70
       126
        
           ['created_record_info] is the server-set info for created records.

     

       71
       127
        
           ['updated_record_info] is the server-set/computed info for updated records.

     

       72
       128
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.3> RFC 8620, Section 5.3 *)

     

       73
       73
       -
       type ('created_record_info, 'updated_record_info) set_response = {

     

       74
       74
       -
         set_resp_account_id : id;

     

       75
       75
       -
         set_resp_old_state : string option;

     

       76
       76
       -
         set_resp_new_state : string;

     

       77
       77
       -
         set_resp_created : 'created_record_info id_map option;

     

       78
       78
       -
         set_resp_updated : 'updated_record_info option id_map option;

     

       79
       79
       -
         set_resp_destroyed : id list option;

     

       80
       80
       -
         set_resp_not_created : set_error id_map option;

     

       81
       81
       -
         set_resp_not_updated : set_error id_map option;

     

       82
       82
       -
         set_resp_not_destroyed : set_error id_map option;

     

       83
       83
       -
       }

     

       129
       129
       +
       module Set_response : sig

     

       130
       130
       +
         type ('created_record_info, 'updated_record_info) t

     

       131
       131
       +
         

     

       132
       132
       +
         val account_id : ('a, 'b) t -> id

     

       133
       133
       +
         val old_state : ('a, 'b) t -> string option

     

       134
       134
       +
         val new_state : ('a, 'b) t -> string

     

       135
       135
       +
         val created : ('a, 'b) t -> 'a id_map option

     

       136
       136
       +
         val updated : ('a, 'b) t -> 'b option id_map option

     

       137
       137
       +
         val destroyed : ('a, 'b) t -> id list option

     

       138
       138
       +
         val not_created : ('a, 'b) t -> Set_error.t id_map option

     

       139
       139
       +
         val not_updated : ('a, 'b) t -> Set_error.t id_map option

     

       140
       140
       +
         val not_destroyed : ('a, 'b) t -> Set_error.t id_map option

     

       141
       141
       +
         

     

       142
       142
       +
         val v :

     

       143
       143
       +
           account_id:id ->

     

       144
       144
       +
           ?old_state:string ->

     

       145
       145
       +
           new_state:string ->

     

       146
       146
       +
           ?created:'a id_map ->

     

       147
       147
       +
           ?updated:'b option id_map ->

     

       148
       148
       +
           ?destroyed:id list ->

     

       149
       149
       +
           ?not_created:Set_error.t id_map ->

     

       150
       150
       +
           ?not_updated:Set_error.t id_map ->

     

       151
       151
       +
           ?not_destroyed:Set_error.t id_map ->

     

       152
       152
       +
           unit ->

     

       153
       153
       +
           ('a, 'b) t

     

       154
       154
       +
       end

     

       84
       155
        
       

     

       85
       156
        
       (** Arguments for /copy methods.

     

       86
       157
        
           ['copy_record_override] contains the record id and override properties.

     

       87
       158
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.4> RFC 8620, Section 5.4 *)

     

       88
       88
       -
       type 'copy_record_override copy_args = {

     

       89
       89
       -
         copy_from_account_id : id;

     

       90
       90
       -
         copy_if_from_in_state : string option;

     

       91
       91
       -
         copy_account_id : id;

     

       92
       92
       -
         copy_if_in_state : string option;

     

       93
       93
       -
         copy_create : 'copy_record_override id_map; (* Map from creation id *)

     

       94
       94
       -
         copy_on_success_destroy_original : bool; (* default: false *)

     

       95
       95
       -
         copy_destroy_from_if_in_state : string option;

     

       96
       96
       -
       }

     

       159
       159
       +
       module Copy_args : sig

     

       160
       160
       +
         type 'copy_record_override t

     

       161
       161
       +
         

     

       162
       162
       +
         val from_account_id : 'a t -> id

     

       163
       163
       +
         val if_from_in_state : 'a t -> string option

     

       164
       164
       +
         val account_id : 'a t -> id

     

       165
       165
       +
         val if_in_state : 'a t -> string option

     

       166
       166
       +
         val create : 'a t -> 'a id_map

     

       167
       167
       +
         val on_success_destroy_original : 'a t -> bool

     

       168
       168
       +
         val destroy_from_if_in_state : 'a t -> string option

     

       169
       169
       +
         

     

       170
       170
       +
         val v :

     

       171
       171
       +
           from_account_id:id ->

     

       172
       172
       +
           ?if_from_in_state:string ->

     

       173
       173
       +
           account_id:id ->

     

       174
       174
       +
           ?if_in_state:string ->

     

       175
       175
       +
           create:'a id_map ->

     

       176
       176
       +
           ?on_success_destroy_original:bool ->

     

       177
       177
       +
           ?destroy_from_if_in_state:string ->

     

       178
       178
       +
           unit ->

     

       179
       179
       +
           'a t

     

       180
       180
       +
       end

     

       97
       181
        
       

     

       98
       182
        
       (** Response for /copy methods.

     

       99
       183
        
           ['created_record_info] is the server-set info for the created copy.

     

       100
       184
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.4> RFC 8620, Section 5.4 *)

     

       101
       101
       -
       type 'created_record_info copy_response = {

     

       102
       102
       -
         copy_resp_from_account_id : id;

     

       103
       103
       -
         copy_resp_account_id : id;

     

       104
       104
       -
         copy_resp_old_state : string option;

     

       105
       105
       -
         copy_resp_new_state : string;

     

       106
       106
       -
         copy_resp_created : 'created_record_info id_map option;

     

       107
       107
       -
         copy_resp_not_created : set_error id_map option;

     

       108
       108
       -
       }

     

       185
       185
       +
       module Copy_response : sig

     

       186
       186
       +
         type 'created_record_info t

     

       187
       187
       +
         

     

       188
       188
       +
         val from_account_id : 'a t -> id

     

       189
       189
       +
         val account_id : 'a t -> id

     

       190
       190
       +
         val old_state : 'a t -> string option

     

       191
       191
       +
         val new_state : 'a t -> string

     

       192
       192
       +
         val created : 'a t -> 'a id_map option

     

       193
       193
       +
         val not_created : 'a t -> Set_error.t id_map option

     

       194
       194
       +
         

     

       195
       195
       +
         val v :

     

       196
       196
       +
           from_account_id:id ->

     

       197
       197
       +
           account_id:id ->

     

       198
       198
       +
           ?old_state:string ->

     

       199
       199
       +
           new_state:string ->

     

       200
       200
       +
           ?created:'a id_map ->

     

       201
       201
       +
           ?not_created:Set_error.t id_map ->

     

       202
       202
       +
           unit ->

     

       203
       203
       +
           'a t

     

       204
       204
       +
       end

     

       109
       205
        
       

     

       110
       110
       -
       (** Base filter operator type.

     

       206
       206
       +
       (** Module for filter types.

     

       111
       207
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.5> RFC 8620, Section 5.5 *)

     

       112
       112
       -
       type filter_operator = {

     

       113
       113
       -
         operator : [ `AND | `OR | `NOT ];

     

       114
       114
       -
         conditions : filter list;

     

       115
       115
       -
       }

     

       116
       116
       -
       

     

       117
       117
       -
       (** Represents either a filter operator or a filter condition.

     

       118
       118
       -
           ['condition] is the type of the specific FilterCondition object.

     

       119
       119
       -
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.5> RFC 8620, Section 5.5 *)

     

       120
       120
       -
       and filter = 

     

       121
       121
       -
         | Filter_operator of filter_operator

     

       122
       122
       -
         | Filter_condition of Yojson.Safe.t (* Placeholder for specific condition type *)

     

       208
       208
       +
       module Filter : sig

     

       209
       209
       +
         type t

     

       210
       210
       +
         

     

       211
       211
       +
         (** Create a filter from a condition (raw JSON) *)

     

       212
       212
       +
         val condition : Yojson.Safe.t -> t

     

       213
       213
       +
         

     

       214
       214
       +
         (** Create a filter from a logical operator and a list of filters *)

     

       215
       215
       +
         val operator : [ `AND | `OR | `NOT ] -> t list -> t

     

       216
       216
       +
       end

     

       123
       217
        
       

     

       124
       218
        
       (** Comparator for sorting.

     

       125
       219
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.5> RFC 8620, Section 5.5 *)

     

       126
       126
       -
       type comparator = {

     

       127
       127
       -
         property : string;

     

       128
       128
       -
         is_ascending : bool option; (* default: true *)

     

       129
       129
       -
         collation : string option;

     

       130
       130
       -
         keyword : string option; (* For Email/query keyword sorts *)

     

       131
       131
       -
         other_fields : Yojson.Safe.t string_map; (** Catch-all for extra fields *)

     

       132
       132
       -
       }

     

       220
       220
       +
       module Comparator : sig

     

       221
       221
       +
         type t

     

       222
       222
       +
         

     

       223
       223
       +
         val property : t -> string

     

       224
       224
       +
         val is_ascending : t -> bool option

     

       225
       225
       +
         val collation : t -> string option

     

       226
       226
       +
         val keyword : t -> string option

     

       227
       227
       +
         val other_fields : t -> Yojson.Safe.t string_map

     

       228
       228
       +
         

     

       229
       229
       +
         val v :

     

       230
       230
       +
           property:string ->

     

       231
       231
       +
           ?is_ascending:bool ->

     

       232
       232
       +
           ?collation:string ->

     

       233
       233
       +
           ?keyword:string ->

     

       234
       234
       +
           ?other_fields:Yojson.Safe.t string_map ->

     

       235
       235
       +
           unit ->

     

       236
       236
       +
           t

     

       237
       237
       +
       end

     

       133
       238
        
       

     

       134
       239
        
       (** Arguments for /query methods.

     

       135
       240
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.5> RFC 8620, Section 5.5 *)

     

       136
       136
       -
       type query_args = {

     

       137
       137
       -
         query_account_id : id;

     

       138
       138
       -
         query_filter : filter option;

     

       139
       139
       -
         query_sort : comparator list option;

     

       140
       140
       -
         query_position : jint option; (* default: 0 *)

     

       141
       141
       -
         query_anchor : id option;

     

       142
       142
       -
         query_anchor_offset : jint option; (* default: 0 *)

     

       143
       143
       -
         query_limit : uint option;

     

       144
       144
       -
         query_calculate_total : bool option; (* default: false *)

     

       145
       145
       -
         query_collapse_threads : bool option; (* For Email/query *)

     

       146
       146
       -
         query_sort_as_tree : bool option; (* For Mailbox/query *)

     

       147
       147
       -
         query_filter_as_tree : bool option; (* For Mailbox/query *)

     

       148
       148
       -
       }

     

       241
       241
       +
       module Query_args : sig

     

       242
       242
       +
         type t

     

       243
       243
       +
         

     

       244
       244
       +
         val account_id : t -> id

     

       245
       245
       +
         val filter : t -> Filter.t option

     

       246
       246
       +
         val sort : t -> Comparator.t list option

     

       247
       247
       +
         val position : t -> jint option

     

       248
       248
       +
         val anchor : t -> id option

     

       249
       249
       +
         val anchor_offset : t -> jint option

     

       250
       250
       +
         val limit : t -> uint option

     

       251
       251
       +
         val calculate_total : t -> bool option

     

       252
       252
       +
         val collapse_threads : t -> bool option

     

       253
       253
       +
         val sort_as_tree : t -> bool option

     

       254
       254
       +
         val filter_as_tree : t -> bool option

     

       255
       255
       +
         

     

       256
       256
       +
         val v :

     

       257
       257
       +
           account_id:id ->

     

       258
       258
       +
           ?filter:Filter.t ->

     

       259
       259
       +
           ?sort:Comparator.t list ->

     

       260
       260
       +
           ?position:jint ->

     

       261
       261
       +
           ?anchor:id ->

     

       262
       262
       +
           ?anchor_offset:jint ->

     

       263
       263
       +
           ?limit:uint ->

     

       264
       264
       +
           ?calculate_total:bool ->

     

       265
       265
       +
           ?collapse_threads:bool ->

     

       266
       266
       +
           ?sort_as_tree:bool ->

     

       267
       267
       +
           ?filter_as_tree:bool ->

     

       268
       268
       +
           unit ->

     

       269
       269
       +
           t

     

       270
       270
       +
       end

     

       149
       271
        
       

     

       150
       272
        
       (** Response for /query methods.

     

       151
       273
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.5> RFC 8620, Section 5.5 *)

     

       152
       152
       -
       type query_response = {

     

       153
       153
       -
         query_resp_account_id : id;

     

       154
       154
       -
         query_resp_query_state : string;

     

       155
       155
       -
         query_resp_can_calculate_changes : bool;

     

       156
       156
       -
         query_resp_position : uint;

     

       157
       157
       -
         query_resp_ids : id list;

     

       158
       158
       -
         query_resp_total : uint option;

     

       159
       159
       -
         query_resp_limit : uint option;

     

       160
       160
       -
       }

     

       274
       274
       +
       module Query_response : sig

     

       275
       275
       +
         type t

     

       276
       276
       +
         

     

       277
       277
       +
         val account_id : t -> id

     

       278
       278
       +
         val query_state : t -> string

     

       279
       279
       +
         val can_calculate_changes : t -> bool

     

       280
       280
       +
         val position : t -> uint

     

       281
       281
       +
         val ids : t -> id list

     

       282
       282
       +
         val total : t -> uint option

     

       283
       283
       +
         val limit : t -> uint option

     

       284
       284
       +
         

     

       285
       285
       +
         val v :

     

       286
       286
       +
           account_id:id ->

     

       287
       287
       +
           query_state:string ->

     

       288
       288
       +
           can_calculate_changes:bool ->

     

       289
       289
       +
           position:uint ->

     

       290
       290
       +
           ids:id list ->

     

       291
       291
       +
           ?total:uint ->

     

       292
       292
       +
           ?limit:uint ->

     

       293
       293
       +
           unit ->

     

       294
       294
       +
           t

     

       295
       295
       +
       end

     

       161
       296
        
       

     

       162
       297
        
       (** Item indicating an added record in /queryChanges.

     

       163
       298
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.6> RFC 8620, Section 5.6 *)

     

       164
       164
       -
       type added_item = {

     

       165
       165
       -
         added_item_id : id;

     

       166
       166
       -
         added_item_index : uint;

     

       167
       167
       -
       }

     

       299
       299
       +
       module Added_item : sig

     

       300
       300
       +
         type t

     

       301
       301
       +
         

     

       302
       302
       +
         val id : t -> id

     

       303
       303
       +
         val index : t -> uint

     

       304
       304
       +
         

     

       305
       305
       +
         val v :

     

       306
       306
       +
           id:id ->

     

       307
       307
       +
           index:uint ->

     

       308
       308
       +
           unit ->

     

       309
       309
       +
           t

     

       310
       310
       +
       end

     

       168
       311
        
       

     

       169
       312
        
       (** Arguments for /queryChanges methods.

     

       170
       313
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.6> RFC 8620, Section 5.6 *)

     

       171
       171
       -
       type query_changes_args = {

     

       172
       172
       -
         query_changes_account_id : id;

     

       173
       173
       -
         query_changes_filter : filter option;

     

       174
       174
       -
         query_changes_sort : comparator list option;

     

       175
       175
       -
         query_changes_since_query_state : string;

     

       176
       176
       -
         query_changes_max_changes : uint option;

     

       177
       177
       -
         query_changes_up_to_id : id option;

     

       178
       178
       -
         query_changes_calculate_total : bool option; (* default: false *)

     

       179
       179
       -
         query_changes_collapse_threads : bool option; (* For Email/queryChanges *)

     

       180
       180
       -
       }

     

       314
       314
       +
       module Query_changes_args : sig

     

       315
       315
       +
         type t

     

       316
       316
       +
         

     

       317
       317
       +
         val account_id : t -> id

     

       318
       318
       +
         val filter : t -> Filter.t option

     

       319
       319
       +
         val sort : t -> Comparator.t list option

     

       320
       320
       +
         val since_query_state : t -> string

     

       321
       321
       +
         val max_changes : t -> uint option

     

       322
       322
       +
         val up_to_id : t -> id option

     

       323
       323
       +
         val calculate_total : t -> bool option

     

       324
       324
       +
         val collapse_threads : t -> bool option

     

       325
       325
       +
         

     

       326
       326
       +
         val v :

     

       327
       327
       +
           account_id:id ->

     

       328
       328
       +
           ?filter:Filter.t ->

     

       329
       329
       +
           ?sort:Comparator.t list ->

     

       330
       330
       +
           since_query_state:string ->

     

       331
       331
       +
           ?max_changes:uint ->

     

       332
       332
       +
           ?up_to_id:id ->

     

       333
       333
       +
           ?calculate_total:bool ->

     

       334
       334
       +
           ?collapse_threads:bool ->

     

       335
       335
       +
           unit ->

     

       336
       336
       +
           t

     

       337
       337
       +
       end

     

       181
       338
        
       

     

       182
       339
        
       (** Response for /queryChanges methods.

     

       183
       340
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-5.6> RFC 8620, Section 5.6 *)

     

       184
       184
       -
       type query_changes_response = {

     

       185
       185
       -
         query_changes_resp_account_id : id;

     

       186
       186
       -
         query_changes_resp_old_query_state : string;

     

       187
       187
       -
         query_changes_resp_new_query_state : string;

     

       188
       188
       -
         query_changes_resp_total : uint option;

     

       189
       189
       -
         query_changes_resp_removed : id list;

     

       190
       190
       -
         query_changes_resp_added : added_item list;

     

       191
       191
       -
       }

     

       341
       341
       +
       module Query_changes_response : sig

     

       342
       342
       +
         type t

     

       343
       343
       +
         

     

       344
       344
       +
         val account_id : t -> id

     

       345
       345
       +
         val old_query_state : t -> string

     

       346
       346
       +
         val new_query_state : t -> string

     

       347
       347
       +
         val total : t -> uint option

     

       348
       348
       +
         val removed : t -> id list

     

       349
       349
       +
         val added : t -> Added_item.t list

     

       350
       350
       +
         

     

       351
       351
       +
         val v :

     

       352
       352
       +
           account_id:id ->

     

       353
       353
       +
           old_query_state:string ->

     

       354
       354
       +
           new_query_state:string ->

     

       355
       355
       +
           ?total:uint ->

     

       356
       356
       +
           removed:id list ->

     

       357
       357
       +
           added:Added_item.t list ->

     

       358
       358
       +
           unit ->

     

       359
       359
       +
           t

     

       360
       360
       +
       end

     

       192
       361
        
       

     

       193
       362
        
       (** Core/echo method: Arguments are mirrored in the response.

     

       194
       363
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-4> RFC 8620, Section 4 *)

+174 -60

output/jmap_push.mli

···

       11
       11
        
       

     

       12
       12
        
       (** StateChange object.

     

       13
       13
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-7.1> RFC 8620, Section 7.1 *)

     

       14
       14
       -
       type state_change = {

     

       15
       15
       -
         (* type field is implicitly "StateChange" *)

     

       16
       16
       -
         changed : type_state id_map;

     

       17
       17
       -
       }

     

       14
       14
       +
       module State_change : sig

     

       15
       15
       +
         type t

     

       16
       16
       +
         

     

       17
       17
       +
         val changed : t -> type_state id_map

     

       18
       18
       +
         

     

       19
       19
       +
         val v :

     

       20
       20
       +
           changed:type_state id_map ->

     

       21
       21
       +
           unit ->

     

       22
       22
       +
           t

     

       23
       23
       +
       end

     

       18
       24
        
       

     

       19
       25
        
       (** PushSubscription encryption keys.

     

       20
       26
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-7.2> RFC 8620, Section 7.2 *)

     

       21
       21
       -
       type push_encryption_keys = {

     

       22
       22
       -
         p256dh : string; (** P-256 ECDH public key (URL-safe base64) *)

     

       23
       23
       -
         auth : string; (** Authentication secret (URL-safe base64) *)

     

       24
       24
       -
       }

     

       27
       27
       +
       module Push_encryption_keys : sig

     

       28
       28
       +
         type t

     

       29
       29
       +
         

     

       30
       30
       +
         (** P-256 ECDH public key (URL-safe base64) *)

     

       31
       31
       +
         val p256dh : t -> string

     

       32
       32
       +
         

     

       33
       33
       +
         (** Authentication secret (URL-safe base64) *)

     

       34
       34
       +
         val auth : t -> string

     

       35
       35
       +
         

     

       36
       36
       +
         val v :

     

       37
       37
       +
           p256dh:string ->

     

       38
       38
       +
           auth:string ->

     

       39
       39
       +
           unit ->

     

       40
       40
       +
           t

     

       41
       41
       +
       end

     

       25
       42
        
       

     

       26
       43
        
       (** PushSubscription object.

     

       27
       44
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-7.2> RFC 8620, Section 7.2 *)

     

       28
       28
       -
       type push_subscription = {

     

       29
       29
       -
         push_sub_id : id; (** server-set, immutable *)

     

       30
       30
       -
         device_client_id : string; (** immutable *)

     

       31
       31
       -
         url : Uri.t; (** immutable *)

     

       32
       32
       -
         keys : push_encryption_keys option; (** immutable *)

     

       33
       33
       -
         verification_code : string option;

     

       34
       34
       -
         expires : utc_date option;

     

       35
       35
       -
         types : string list option;

     

       36
       36
       -
       }

     

       45
       45
       +
       module Push_subscription : sig

     

       46
       46
       +
         type t

     

       47
       47
       +
         

     

       48
       48
       +
         (** Id of the subscription (server-set, immutable) *)

     

       49
       49
       +
         val id : t -> id

     

       50
       50
       +
         

     

       51
       51
       +
         (** Device client id (immutable) *)

     

       52
       52
       +
         val device_client_id : t -> string

     

       53
       53
       +
         

     

       54
       54
       +
         (** Notification URL (immutable) *)

     

       55
       55
       +
         val url : t -> Uri.t

     

       56
       56
       +
         

     

       57
       57
       +
         (** Encryption keys (immutable) *)

     

       58
       58
       +
         val keys : t -> Push_encryption_keys.t option

     

       59
       59
       +
         val verification_code : t -> string option

     

       60
       60
       +
         val expires : t -> utc_date option

     

       61
       61
       +
         val types : t -> string list option

     

       62
       62
       +
         

     

       63
       63
       +
         val v :

     

       64
       64
       +
           id:id ->

     

       65
       65
       +
           device_client_id:string ->

     

       66
       66
       +
           url:Uri.t ->

     

       67
       67
       +
           ?keys:Push_encryption_keys.t ->

     

       68
       68
       +
           ?verification_code:string ->

     

       69
       69
       +
           ?expires:utc_date ->

     

       70
       70
       +
           ?types:string list ->

     

       71
       71
       +
           unit ->

     

       72
       72
       +
           t

     

       73
       73
       +
       end

     

       37
       74
        
       

     

       38
       75
        
       (** PushSubscription object for creation (omits server-set fields).

     

       39
       76
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-7.2> RFC 8620, Section 7.2 *)

     

       40
       40
       -
       type push_subscription_create = {

     

       41
       41
       -
         push_sub_create_device_client_id : string;

     

       42
       42
       -
         push_sub_create_url : Uri.t;

     

       43
       43
       -
         push_sub_create_keys : push_encryption_keys option;

     

       44
       44
       -
         push_sub_create_expires : utc_date option;

     

       45
       45
       -
         push_sub_create_types : string list option;

     

       46
       46
       -
       }

     

       77
       77
       +
       module Push_subscription_create : sig

     

       78
       78
       +
         type t

     

       79
       79
       +
         

     

       80
       80
       +
         val device_client_id : t -> string

     

       81
       81
       +
         val url : t -> Uri.t

     

       82
       82
       +
         val keys : t -> Push_encryption_keys.t option

     

       83
       83
       +
         val expires : t -> utc_date option

     

       84
       84
       +
         val types : t -> string list option

     

       85
       85
       +
         

     

       86
       86
       +
         val v :

     

       87
       87
       +
           device_client_id:string ->

     

       88
       88
       +
           url:Uri.t ->

     

       89
       89
       +
           ?keys:Push_encryption_keys.t ->

     

       90
       90
       +
           ?expires:utc_date ->

     

       91
       91
       +
           ?types:string list ->

     

       92
       92
       +
           unit ->

     

       93
       93
       +
           t

     

       94
       94
       +
       end

     

       47
       95
        
       

     

       48
       96
        
       (** PushSubscription object for update patch.

     

       49
       97
        
           Only verification_code and expires can be updated.

     
···

       54
       102
        
       (** Arguments for PushSubscription/get.

     

       55
       103
        
           Extends standard /get args.

     

       56
       104
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-7.2.1> RFC 8620, Section 7.2.1 *)

     

       57
       57
       -
       type push_subscription_get_args = {

     

       58
       58
       -
         push_sub_get_ids : id list option;

     

       59
       59
       -
         push_sub_get_properties : string list option;

     

       60
       60
       -
       }

     

       105
       105
       +
       module Push_subscription_get_args : sig

     

       106
       106
       +
         type t

     

       107
       107
       +
         

     

       108
       108
       +
         val ids : t -> id list option

     

       109
       109
       +
         val properties : t -> string list option

     

       110
       110
       +
         

     

       111
       111
       +
         val v :

     

       112
       112
       +
           ?ids:id list ->

     

       113
       113
       +
           ?properties:string list ->

     

       114
       114
       +
           unit ->

     

       115
       115
       +
           t

     

       116
       116
       +
       end

     

       61
       117
        
       

     

       62
       118
        
       (** Response for PushSubscription/get.

     

       63
       119
        
           Extends standard /get response.

     

       64
       120
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-7.2.1> RFC 8620, Section 7.2.1 *)

     

       65
       65
       -
       type push_subscription_get_response = {

     

       66
       66
       -
         push_sub_get_resp_list : push_subscription list;

     

       67
       67
       -
         push_sub_get_resp_not_found : id list;

     

       68
       68
       -
       }

     

       121
       121
       +
       module Push_subscription_get_response : sig

     

       122
       122
       +
         type t

     

       123
       123
       +
         

     

       124
       124
       +
         val list : t -> Push_subscription.t list

     

       125
       125
       +
         val not_found : t -> id list

     

       126
       126
       +
         

     

       127
       127
       +
         val v :

     

       128
       128
       +
           list:Push_subscription.t list ->

     

       129
       129
       +
           not_found:id list ->

     

       130
       130
       +
           unit ->

     

       131
       131
       +
           t

     

       132
       132
       +
       end

     

       69
       133
        
       

     

       70
       134
        
       (** Arguments for PushSubscription/set.

     

       71
       135
        
           Extends standard /set args.

     

       72
       136
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-7.2.2> RFC 8620, Section 7.2.2 *)

     

       73
       73
       -
       type push_subscription_set_args = {

     

       74
       74
       -
         push_sub_set_create : push_subscription_create id_map option;

     

       75
       75
       -
         push_sub_set_update : push_subscription_update id_map option;

     

       76
       76
       -
         push_sub_set_destroy : id list option;

     

       77
       77
       -
       }

     

       137
       137
       +
       module Push_subscription_set_args : sig

     

       138
       138
       +
         type t

     

       139
       139
       +
         

     

       140
       140
       +
         val create : t -> Push_subscription_create.t id_map option

     

       141
       141
       +
         val update : t -> push_subscription_update id_map option

     

       142
       142
       +
         val destroy : t -> id list option

     

       143
       143
       +
         

     

       144
       144
       +
         val v :

     

       145
       145
       +
           ?create:Push_subscription_create.t id_map ->

     

       146
       146
       +
           ?update:push_subscription_update id_map ->

     

       147
       147
       +
           ?destroy:id list ->

     

       148
       148
       +
           unit ->

     

       149
       149
       +
           t

     

       150
       150
       +
       end

     

       78
       151
        
       

     

       79
       152
        
       (** Server-set information for created PushSubscription.

     

       80
       153
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-7.2.2> RFC 8620, Section 7.2.2 *)

     

       81
       81
       -
       type push_subscription_created_info = {

     

       82
       82
       -
         push_sub_created_id : id;

     

       83
       83
       -
         push_sub_created_expires : utc_date option;

     

       84
       84
       -
       }

     

       154
       154
       +
       module Push_subscription_created_info : sig

     

       155
       155
       +
         type t

     

       156
       156
       +
         

     

       157
       157
       +
         val id : t -> id

     

       158
       158
       +
         val expires : t -> utc_date option

     

       159
       159
       +
         

     

       160
       160
       +
         val v :

     

       161
       161
       +
           id:id ->

     

       162
       162
       +
           ?expires:utc_date ->

     

       163
       163
       +
           unit ->

     

       164
       164
       +
           t

     

       165
       165
       +
       end

     

       85
       166
        
       

     

       86
       167
        
       (** Server-set information for updated PushSubscription.

     

       87
       168
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-7.2.2> RFC 8620, Section 7.2.2 *)

     

       88
       88
       -
       type push_subscription_updated_info = {

     

       89
       89
       -
          push_sub_updated_expires : utc_date option;

     

       90
       90
       -
       }

     

       169
       169
       +
       module Push_subscription_updated_info : sig

     

       170
       170
       +
         type t

     

       171
       171
       +
         

     

       172
       172
       +
         val expires : t -> utc_date option

     

       173
       173
       +
         

     

       174
       174
       +
         val v :

     

       175
       175
       +
           ?expires:utc_date ->

     

       176
       176
       +
           unit ->

     

       177
       177
       +
           t

     

       178
       178
       +
       end

     

       91
       179
        
       

     

       92
       180
        
       (** Response for PushSubscription/set.

     

       93
       181
        
           Extends standard /set response.

     

       94
       182
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-7.2.2> RFC 8620, Section 7.2.2 *)

     

       95
       95
       -
       type push_subscription_set_response = {

     

       96
       96
       -
         push_sub_set_resp_created : push_subscription_created_info id_map option;

     

       97
       97
       -
         push_sub_set_resp_updated : push_subscription_updated_info option id_map option;

     

       98
       98
       -
         push_sub_set_resp_destroyed : id list option;

     

       99
       99
       -
         push_sub_set_resp_not_created : set_error id_map option;

     

       100
       100
       -
         push_sub_set_resp_not_updated : set_error id_map option;

     

       101
       101
       -
         push_sub_set_resp_not_destroyed : set_error id_map option;

     

       102
       102
       -
       }

     

       183
       183
       +
       module Push_subscription_set_response : sig

     

       184
       184
       +
         type t

     

       185
       185
       +
         

     

       186
       186
       +
         val created : t -> Push_subscription_created_info.t id_map option

     

       187
       187
       +
         val updated : t -> Push_subscription_updated_info.t option id_map option

     

       188
       188
       +
         val destroyed : t -> id list option

     

       189
       189
       +
         val not_created : t -> Set_error.t id_map option

     

       190
       190
       +
         val not_updated : t -> Set_error.t id_map option

     

       191
       191
       +
         val not_destroyed : t -> Set_error.t id_map option

     

       192
       192
       +
         

     

       193
       193
       +
         val v :

     

       194
       194
       +
           ?created:Push_subscription_created_info.t id_map ->

     

       195
       195
       +
           ?updated:Push_subscription_updated_info.t option id_map ->

     

       196
       196
       +
           ?destroyed:id list ->

     

       197
       197
       +
           ?not_created:Set_error.t id_map ->

     

       198
       198
       +
           ?not_updated:Set_error.t id_map ->

     

       199
       199
       +
           ?not_destroyed:Set_error.t id_map ->

     

       200
       200
       +
           unit ->

     

       201
       201
       +
           t

     

       202
       202
       +
       end

     

       103
       203
        
       

     

       104
       204
        
       (** PushVerification object.

     

       105
       205
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-7.2.2> RFC 8620, Section 7.2.2 *)

     

       106
       106
       -
       type push_verification = {

     

       107
       107
       -
         (* type field is implicitly "PushVerification" *)

     

       108
       108
       -
         push_verification_push_subscription_id : id;

     

       109
       109
       -
         push_verification_verification_code : string;

     

       110
       110
       -
       }

     

       206
       206
       +
       module Push_verification : sig

     

       207
       207
       +
         type t

     

       208
       208
       +
         

     

       209
       209
       +
         val push_subscription_id : t -> id

     

       210
       210
       +
         val verification_code : t -> string

     

       211
       211
       +
         

     

       212
       212
       +
         val v :

     

       213
       213
       +
           push_subscription_id:id ->

     

       214
       214
       +
           verification_code:string ->

     

       215
       215
       +
           unit ->

     

       216
       216
       +
           t

     

       217
       217
       +
       end

     

       111
       218
        
       

     

       112
       219
        
       (** Data for EventSource ping event.

     

       113
       220
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-7.3> RFC 8620, Section 7.3 *)

     

       114
       114
       -
       type event_source_ping_data = {

     

       115
       115
       -
         interval : uint;

     

       116
       116
       -
       }

     

       221
       221
       +
       module Event_source_ping_data : sig

     

       222
       222
       +
         type t

     

       223
       223
       +
         

     

       224
       224
       +
         val interval : t -> uint

     

       225
       225
       +
         

     

       226
       226
       +
         val v :

     

       227
       227
       +
           interval:uint ->

     

       228
       228
       +
           unit ->

     

       229
       229
       +
           t

     

       230
       230
       +
       end

+21 -15

output/jmap_search_snippet.mli

···

       7
       7
        
       (** SearchSnippet object.

     

       8
       8
        
           Note: Does not have an 'id' property.

     

       9
       9
        
           @see <https://www.rfc-editor.org/rfc/rfc8621.html#section-5> RFC 8621, Section 5 *)

     

       10
       10
       -
       type search_snippet = {

     

       11
       11
       -
         snippet_email_id : id;

     

       12
       12
       -
         snippet_subject : string option;

     

       13
       13
       -
         snippet_preview : string option;

     

       14
       14
       -
       }

     

       10
       10
       +
       module Search_snippet : sig

     

       11
       11
       +
         type t = {

     

       12
       12
       +
           snippet_email_id : id;

     

       13
       13
       +
           snippet_subject : string option;

     

       14
       14
       +
           snippet_preview : string option;

     

       15
       15
       +
         }

     

       16
       16
       +
       end

     

       15
       17
        
       

     

       16
       18
        
       (** SearchSnippet/get: Args type.

     

       17
       19
        
           @see <https://www.rfc-editor.org/rfc/rfc8621.html#section-5.1> RFC 8621, Section 5.1 *)

     

       18
       18
       -
       type search_snippet_get_args = {

     

       19
       19
       -
         snippet_get_account_id : id;

     

       20
       20
       -
         snippet_get_filter : filter option;

     

       21
       21
       -
         snippet_get_email_ids : id list;

     

       22
       22
       -
       }

     

       20
       20
       +
       module Search_snippet_get_args : sig

     

       21
       21
       +
         type t = {

     

       22
       22
       +
           snippet_get_account_id : id;

     

       23
       23
       +
           snippet_get_filter : Filter.t option;

     

       24
       24
       +
           snippet_get_email_ids : id list;

     

       25
       25
       +
         }

     

       26
       26
       +
       end

     

       23
       27
        
       

     

       24
       28
        
       (** SearchSnippet/get: Response type.

     

       25
       29
        
           @see <https://www.rfc-editor.org/rfc/rfc8621.html#section-5.1> RFC 8621, Section 5.1 *)

     

       26
       26
       -
       type search_snippet_get_response = {

     

       27
       27
       -
         snippet_get_resp_account_id : id;

     

       28
       28
       -
         snippet_get_resp_list : search_snippet list;

     

       29
       29
       -
         snippet_get_resp_not_found : id list option;

     

       30
       30
       -
       }
     

       30
       30
       +
       module Search_snippet_get_response : sig

     

       31
       31
       +
         type t = {

     

       32
       32
       +
           snippet_get_resp_account_id : id;

     

       33
       33
       +
           snippet_get_resp_list : Search_snippet.t list;

     

       34
       34
       +
           snippet_get_resp_not_found : id list option;

     

       35
       35
       +
         }

     

       36
       36
       +
       end

+73 -34

output/jmap_session.mli

···

       3
       3
        
       

     

       4
       4
        
       open Jmap_types

     

       5
       5
        
       

     

       6
       6
       -
       (** Core capability information.

     

       7
       7
       -
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-2> RFC 8620, Section 2 *)

     

       8
       8
       -
       type core_capability = {

     

       9
       9
       -
         max_size_upload : uint;

     

       10
       10
       -
         max_concurrent_upload : uint;

     

       11
       11
       -
         max_size_request : uint;

     

       12
       12
       -
         max_concurrent_requests : uint;

     

       13
       13
       -
         max_calls_in_request : uint;

     

       14
       14
       -
         max_objects_in_get : uint;

     

       15
       15
       -
         max_objects_in_set : uint;

     

       16
       16
       -
         collation_algorithms : string list;

     

       17
       17
       -
       }

     

       18
       18
       -
       

     

       19
       6
        
       (** Account capability information.

     

       20
       7
        
           The value is capability-specific.

     

       21
       8
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-2> RFC 8620, Section 2 *)

     

       22
       9
        
       type account_capability_value = Yojson.Safe.t

     

       23
       10
        
       

     

       24
       24
       -
       (** An Account object.

     

       25
       25
       -
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-2> RFC 8620, Section 2 *)

     

       26
       26
       -
       type account = {

     

       27
       27
       -
         acc_name : string;

     

       28
       28
       -
         is_personal : bool;

     

       29
       29
       -
         is_read_only : bool;

     

       30
       30
       -
         account_capabilities : account_capability_value string_map;

     

       31
       31
       -
       }

     

       32
       32
       -
       

     

       33
       11
        
       (** Server capability information.

     

       34
       12
        
           The value is capability-specific.

     

       35
       13
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-2> RFC 8620, Section 2 *)

     

       36
       14
        
       type server_capability_value = Yojson.Safe.t

     

       37
       15
        
       

     

       16
       16
       +
       (** Core capability information.

     

       17
       17
       +
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-2> RFC 8620, Section 2 *)

     

       18
       18
       +
       module Core_capability : sig

     

       19
       19
       +
         type t

     

       20
       20
       +
         

     

       21
       21
       +
         val max_size_upload : t -> uint

     

       22
       22
       +
         val max_concurrent_upload : t -> uint

     

       23
       23
       +
         val max_size_request : t -> uint

     

       24
       24
       +
         val max_concurrent_requests : t -> uint

     

       25
       25
       +
         val max_calls_in_request : t -> uint

     

       26
       26
       +
         val max_objects_in_get : t -> uint

     

       27
       27
       +
         val max_objects_in_set : t -> uint

     

       28
       28
       +
         val collation_algorithms : t -> string list

     

       29
       29
       +
         

     

       30
       30
       +
         val v :

     

       31
       31
       +
           max_size_upload:uint ->

     

       32
       32
       +
           max_concurrent_upload:uint ->

     

       33
       33
       +
           max_size_request:uint ->

     

       34
       34
       +
           max_concurrent_requests:uint ->

     

       35
       35
       +
           max_calls_in_request:uint ->

     

       36
       36
       +
           max_objects_in_get:uint ->

     

       37
       37
       +
           max_objects_in_set:uint ->

     

       38
       38
       +
           collation_algorithms:string list ->

     

       39
       39
       +
           unit ->

     

       40
       40
       +
           t

     

       41
       41
       +
       end

     

       42
       42
       +
       

     

       43
       43
       +
       (** An Account object.

     

       44
       44
       +
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-2> RFC 8620, Section 2 *)

     

       45
       45
       +
       module Account : sig

     

       46
       46
       +
         type t

     

       47
       47
       +
         

     

       48
       48
       +
         val name : t -> string

     

       49
       49
       +
         val is_personal : t -> bool

     

       50
       50
       +
         val is_read_only : t -> bool

     

       51
       51
       +
         val account_capabilities : t -> account_capability_value string_map

     

       52
       52
       +
         

     

       53
       53
       +
         val v :

     

       54
       54
       +
           name:string ->

     

       55
       55
       +
           ?is_personal:bool ->

     

       56
       56
       +
           ?is_read_only:bool ->

     

       57
       57
       +
           ?account_capabilities:account_capability_value string_map ->

     

       58
       58
       +
           unit ->

     

       59
       59
       +
           t

     

       60
       60
       +
       end

     

       61
       61
       +
       

     

       38
       62
        
       (** The Session object.

     

       39
       63
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-2> RFC 8620, Section 2 *)

     

       40
       40
       -
       type session = {

     

       41
       41
       -
         capabilities : server_capability_value string_map;

     

       42
       42
       -
         accounts : account id_map;

     

       43
       43
       -
         primary_accounts : id string_map;

     

       44
       44
       -
         username : string;

     

       45
       45
       -
         api_url : Uri.t;

     

       46
       46
       -
         download_url : Uri.t; (** Must be a Level 1 URI Template *) 

     

       47
       47
       -
         upload_url : Uri.t; (** Must be a Level 1 URI Template *)

     

       48
       48
       -
         event_source_url : Uri.t; (** Must be a Level 1 URI Template *)

     

       49
       49
       -
         state : string;

     

       50
       50
       -
       }

     

       64
       64
       +
       module Session : sig

     

       65
       65
       +
         type t

     

       66
       66
       +
         

     

       67
       67
       +
         val capabilities : t -> server_capability_value string_map

     

       68
       68
       +
         val accounts : t -> Account.t id_map

     

       69
       69
       +
         val primary_accounts : t -> id string_map

     

       70
       70
       +
         val username : t -> string

     

       71
       71
       +
         val api_url : t -> Uri.t

     

       72
       72
       +
         val download_url : t -> Uri.t

     

       73
       73
       +
         val upload_url : t -> Uri.t

     

       74
       74
       +
         val event_source_url : t -> Uri.t

     

       75
       75
       +
         val state : t -> string

     

       76
       76
       +
         

     

       77
       77
       +
         val v :

     

       78
       78
       +
           capabilities:server_capability_value string_map ->

     

       79
       79
       +
           accounts:Account.t id_map ->

     

       80
       80
       +
           primary_accounts:id string_map ->

     

       81
       81
       +
           username:string ->

     

       82
       82
       +
           api_url:Uri.t ->

     

       83
       83
       +
           download_url:Uri.t ->

     

       84
       84
       +
           upload_url:Uri.t ->

     

       85
       85
       +
           event_source_url:Uri.t ->

     

       86
       86
       +
           state:string ->

     

       87
       87
       +
           unit ->

     

       88
       88
       +
           t

     

       89
       89
       +
       end

     

       51
       90
        
       

     

       52
       91
        
       (** Function to perform service autodiscovery.

     

       53
       92
        
           Returns the session URL if found.

     
···

       56
       95
        
       

     

       57
       96
        
       (** Function to fetch the session object from a given URL.

     

       58
       97
        
           Requires authentication handling (details TBD/outside this signature). *)

     

       59
       59
       -
       val get_session : url:Uri.t -> session

     

       98
       98
       +
       val get_session : url:Uri.t -> Session.t

+36 -18

output/jmap_submission.mli

···

       78
       78
        
         filter_after : utc_date option;

     

       79
       79
        
       }

     

       80
       80
        
       

     

       81
       81
       -
       (** EmailSubmission/get: Args type (specialized from ['record get_args]). *)

     

       82
       82
       -
       type email_submission_get_args = email_submission get_args

     

       81
       81
       +
       (** EmailSubmission/get: Args type (specialized from ['record Get_args.t]). *)

     

       82
       82
       +
       module Email_submission_get_args : sig

     

       83
       83
       +
         type t = email_submission Get_args.t

     

       84
       84
       +
       end

     

       83
       85
        
       

     

       84
       84
       -
       (** EmailSubmission/get: Response type (specialized from ['record get_response]). *)

     

       85
       85
       -
       type email_submission_get_response = email_submission get_response

     

       86
       86
       +
       (** EmailSubmission/get: Response type (specialized from ['record Get_response.t]). *)

     

       87
       87
       +
       module Email_submission_get_response : sig

     

       88
       88
       +
         type t = email_submission Get_response.t

     

       89
       89
       +
       end

     

       86
       90
        
       

     

       87
       87
       -
       (** EmailSubmission/changes: Args type (specialized from [changes_args]). *)

     

       88
       88
       -
       type email_submission_changes_args = changes_args

     

       91
       91
       +
       (** EmailSubmission/changes: Args type (specialized from [Changes_args.t]). *)

     

       92
       92
       +
       module Email_submission_changes_args : sig

     

       93
       93
       +
         type t = Changes_args.t

     

       94
       94
       +
       end

     

       89
       95
        
       

     

       90
       90
       -
       (** EmailSubmission/changes: Response type (specialized from [changes_response]). *)

     

       91
       91
       -
       type email_submission_changes_response = changes_response

     

       96
       96
       +
       (** EmailSubmission/changes: Response type (specialized from [Changes_response.t]). *)

     

       97
       97
       +
       module Email_submission_changes_response : sig

     

       98
       98
       +
         type t = Changes_response.t

     

       99
       99
       +
       end

     

       92
       100
        
       

     

       93
       93
       -
       (** EmailSubmission/query: Args type (specialized from [query_args]). *)

     

       94
       94
       -
       type email_submission_query_args = query_args

     

       101
       101
       +
       (** EmailSubmission/query: Args type (specialized from [Query_args.t]). *)

     

       102
       102
       +
       module Email_submission_query_args : sig

     

       103
       103
       +
         type t = Query_args.t

     

       104
       104
       +
       end

     

       95
       105
        
       

     

       96
       96
       -
       (** EmailSubmission/query: Response type (specialized from [query_response]). *)

     

       97
       97
       -
       type email_submission_query_response = query_response

     

       106
       106
       +
       (** EmailSubmission/query: Response type (specialized from [Query_response.t]). *)

     

       107
       107
       +
       module Email_submission_query_response : sig

     

       108
       108
       +
         type t = Query_response.t

     

       109
       109
       +
       end

     

       98
       110
        
       

     

       99
       99
       -
       (** EmailSubmission/queryChanges: Args type (specialized from [query_changes_args]). *)

     

       100
       100
       -
       type email_submission_query_changes_args = query_changes_args

     

       111
       111
       +
       (** EmailSubmission/queryChanges: Args type (specialized from [Query_changes_args.t]). *)

     

       112
       112
       +
       module Email_submission_query_changes_args : sig

     

       113
       113
       +
         type t = Query_changes_args.t

     

       114
       114
       +
       end

     

       101
       115
        
       

     

       102
       102
       -
       (** EmailSubmission/queryChanges: Response type (specialized from [query_changes_response]). *)

     

       103
       103
       -
       type email_submission_query_changes_response = query_changes_response

     

       116
       116
       +
       (** EmailSubmission/queryChanges: Response type (specialized from [Query_changes_response.t]). *)

     

       117
       117
       +
       module Email_submission_query_changes_response : sig

     

       118
       118
       +
         type t = Query_changes_response.t

     

       119
       119
       +
       end

     

       104
       120
        
       

     

       105
       121
        
       (** EmailSubmission/set: Args type (specialized from [('c, 'u) set_args]).

     

       106
       122
        
           Includes onSuccess arguments.

     
···

       114
       130
        
         set_on_success_destroy_email : id list option;

     

       115
       131
        
       }

     

       116
       132
        
       

     

       117
       117
       -
       (** EmailSubmission/set: Response type (specialized from [('c, 'u) set_response]). *)

     

       118
       118
       -
       type email_submission_set_response = (email_submission_created_info, email_submission_updated_info) set_response

     

       133
       133
       +
       (** EmailSubmission/set: Response type (specialized from [('c, 'u) Set_response.t]). *)

     

       134
       134
       +
       module Email_submission_set_response : sig

     

       135
       135
       +
         type t = (email_submission_created_info, email_submission_updated_info) Set_response.t

     

       136
       136
       +
       end

+24 -12

output/jmap_thread.mli

···

       6
       6
        
       

     

       7
       7
        
       (** Thread object.

     

       8
       8
        
           @see <https://www.rfc-editor.org/rfc/rfc8621.html#section-3> RFC 8621, Section 3 *)

     

       9
       9
       -
       type thread = {

     

       10
       10
       -
         thread_id : id; (** immutable, server-set *)

     

       11
       11
       -
         email_ids : id list; (** server-set *)

     

       12
       12
       -
       }

     

       9
       9
       +
       module Thread : sig

     

       10
       10
       +
         type t

     

       13
       11
        
       

     

       14
       14
       -
       (** Thread/get: Args type (specialized from ['record get_args]). *)

     

       15
       15
       -
       type thread_get_args = thread get_args

     

       12
       12
       +
         val id : t -> id

     

       13
       13
       +
         val email_ids : t -> id list

     

       14
       14
       +
         

     

       15
       15
       +
         val v : id:id -> email_ids:id list -> t

     

       16
       16
       +
       end

     

       16
       17
        
       

     

       17
       17
       -
       (** Thread/get: Response type (specialized from ['record get_response]). *)

     

       18
       18
       -
       type thread_get_response = thread get_response

     

       18
       18
       +
       (** Thread/get: Args type (specialized from ['record Get_args.t]). *)

     

       19
       19
       +
       module Thread_get_args : sig

     

       20
       20
       +
         type t = Thread.t Get_args.t

     

       21
       21
       +
       end

     

       19
       22
        
       

     

       20
       20
       -
       (** Thread/changes: Args type (specialized from [changes_args]). *)

     

       21
       21
       -
       type thread_changes_args = changes_args

     

       23
       23
       +
       (** Thread/get: Response type (specialized from ['record Get_response.t]). *)

     

       24
       24
       +
       module Thread_get_response : sig

     

       25
       25
       +
         type t = Thread.t Get_response.t

     

       26
       26
       +
       end

     

       22
       27
        
       

     

       23
       23
       -
       (** Thread/changes: Response type (specialized from [changes_response]). *)

     

       24
       24
       -
       type thread_changes_response = changes_response
     

       28
       28
       +
       (** Thread/changes: Args type (specialized from [Changes_args.t]). *)

     

       29
       29
       +
       module Thread_changes_args : sig

     

       30
       30
       +
         type t = Changes_args.t

     

       31
       31
       +
       end

     

       32
       32
       +
       

     

       33
       33
       +
       (** Thread/changes: Response type (specialized from [Changes_response.t]). *)

     

       34
       34
       +
       module Thread_changes_response : sig

     

       35
       35
       +
         type t = Changes_response.t

     

       36
       36
       +
       end

+5 -5

output/jmap_unix.mli

···

       16
       16
        
       type event_source_connection

     

       17
       17
        
       

     

       18
       18
        
       (** Exception raised for JMAP communication errors. *)

     

       19
       19
       -
       exception Jmap_error of Jmap_error.problem_details

     

       19
       19
       +
       exception Jmap_error of Jmap_error.Problem_details.t

     

       20
       20
        
       

     

       21
       21
        
       (** Connect to a JMAP server and retrieve the session.

     

       22
       22
        
           This handles discovery (if needed) and authentication (mechanism TBD).

     
···

       32
       32
        
         host:string -> 

     

       33
       33
        
         ?port:int -> 

     

       34
       34
        
         credentials:'a -> 

     

       35
       35
       -
         (context * session)

     

       35
       35
       +
         (context * Session.t)

     

       36
       36
        
       

     

       37
       37
        
       (** Perform a JMAP API request.

     

       38
       38
        
           @param ctx The connection context.

     

       39
       39
        
           @param request The JMAP request object.

     

       40
       40
        
       *)

     

       41
       41
       -
       val request : context -> request -> response

     

       41
       41
       +
       val request : context -> Request.t -> Response.t

     

       42
       42
        
       

     

       43
       43
        
       (** Upload binary data.

     

       44
       44
        
           @param ctx The connection context.

     
···

       51
       51
        
         account_id:id -> 

     

       52
       52
        
         content_type:string -> 

     

       53
       53
        
         data_stream:string Seq.t -> 

     

       54
       54
       -
         Jmap_binary.upload_response

     

       54
       54
       +
         Jmap_binary.Upload_response.t

     

       55
       55
        
       

     

       56
       56
        
       (** Download binary data.

     

       57
       57
        
           @param ctx The connection context.

     
···

       82
       82
        
         ?close_after:[`State | `No] -> 

     

       83
       83
        
         ?ping:uint ->

     

       84
       84
        
         (event_source_connection * 

     

       85
       85
       -
          ([`State of state_change | `Ping of event_source_ping_data ] Seq.t))

     

       85
       85
       +
          ([`State of State_change.t | `Ping of Event_source_ping_data.t ] Seq.t))

     

       86
       86
        
       

     

       87
       87
        
       (** Close an EventSource connection.

     

       88
       88
        
           @param conn The EventSource connection handle.

+76 -23

output/jmap_vacation.mli

···

       8
       8
        
       (** VacationResponse object.

     

       9
       9
        
           Note: id is always "singleton".

     

       10
       10
        
           @see <https://www.rfc-editor.org/rfc/rfc8621.html#section-8> RFC 8621, Section 8 *)

     

       11
       11
       -
       type vacation_response_obj = {

     

       12
       12
       -
         vacation_id : id; (** immutable, server-set, MUST be "singleton" *)

     

       13
       13
       -
         is_enabled : bool;

     

       14
       14
       -
         from_date : utc_date option;

     

       15
       15
       -
         to_date : utc_date option;

     

       16
       16
       -
         subject : string option;

     

       17
       17
       -
         text_body : string option;

     

       18
       18
       -
         html_body : string option;

     

       19
       19
       -
       }

     

       11
       11
       +
       module Vacation_response : sig

     

       12
       12
       +
         type t

     

       13
       13
       +
         

     

       14
       14
       +
         (** Id of the vacation response (immutable, server-set, MUST be "singleton") *)

     

       15
       15
       +
         val id : t -> id

     

       16
       16
       +
         val is_enabled : t -> bool

     

       17
       17
       +
         val from_date : t -> utc_date option

     

       18
       18
       +
         val to_date : t -> utc_date option

     

       19
       19
       +
         val subject : t -> string option

     

       20
       20
       +
         val text_body : t -> string option

     

       21
       21
       +
         val html_body : t -> string option

     

       22
       22
       +
         

     

       23
       23
       +
         val v :

     

       24
       24
       +
           id:id ->

     

       25
       25
       +
           is_enabled:bool ->

     

       26
       26
       +
           ?from_date:utc_date ->

     

       27
       27
       +
           ?to_date:utc_date ->

     

       28
       28
       +
           ?subject:string ->

     

       29
       29
       +
           ?text_body:string ->

     

       30
       30
       +
           ?html_body:string ->

     

       31
       31
       +
           unit ->

     

       32
       32
       +
           t

     

       33
       33
       +
       end

     

       20
       34
        
       

     

       21
       35
        
       (** VacationResponse object for update.

     

       22
       36
        
           Patch object, specific structure not enforced here.

     
···

       24
       38
        
       type vacation_response_update = patch_object

     

       25
       39
        
       

     

       26
       40
        
       (** VacationResponse/get: Args type (specialized from ['record get_args]). *)

     

       27
       27
       -
       type vacation_response_get_args = vacation_response_obj get_args

     

       41
       41
       +
       module Vacation_response_get_args : sig

     

       42
       42
       +
         type t = Vacation_response.t Get_args.t

     

       43
       43
       +
         

     

       44
       44
       +
         val v :

     

       45
       45
       +
           account_id:id ->

     

       46
       46
       +
           ?ids:id list ->

     

       47
       47
       +
           ?properties:string list ->

     

       48
       48
       +
           unit ->

     

       49
       49
       +
           t

     

       50
       50
       +
       end

     

       28
       51
        
       

     

       29
       52
        
       (** VacationResponse/get: Response type (specialized from ['record get_response]). *)

     

       30
       30
       -
       type vacation_response_get_response = vacation_response_obj get_response

     

       53
       53
       +
       module Vacation_response_get_response : sig 

     

       54
       54
       +
         type t = Vacation_response.t Get_response.t

     

       55
       55
       +
         

     

       56
       56
       +
         val v :

     

       57
       57
       +
           account_id:id ->

     

       58
       58
       +
           state:string ->

     

       59
       59
       +
           list:Vacation_response.t list ->

     

       60
       60
       +
           not_found:id list ->

     

       61
       61
       +
           unit ->

     

       62
       62
       +
           t

     

       63
       63
       +
       end

     

       31
       64
        
       

     

       32
       65
        
       (** VacationResponse/set: Args type.

     

       33
       66
        
           Only allows update, id must be "singleton".

     

       34
       67
        
           @see <https://www.rfc-editor.org/rfc/rfc8621.html#section-8.2> RFC 8621, Section 8.2 *)

     

       35
       35
       -
       type vacation_response_set_args = {

     

       36
       36
       -
         set_account_id : id;

     

       37
       37
       -
         set_if_in_state : string option;

     

       38
       38
       -
         set_update : vacation_response_update id_map option;

     

       39
       39
       -
       }

     

       68
       68
       +
       module Vacation_response_set_args : sig

     

       69
       69
       +
         type t

     

       70
       70
       +
         

     

       71
       71
       +
         val account_id : t -> id

     

       72
       72
       +
         val if_in_state : t -> string option

     

       73
       73
       +
         val update : t -> vacation_response_update id_map option

     

       74
       74
       +
         

     

       75
       75
       +
         val v :

     

       76
       76
       +
           account_id:id ->

     

       77
       77
       +
           ?if_in_state:string ->

     

       78
       78
       +
           ?update:vacation_response_update id_map ->

     

       79
       79
       +
           unit ->

     

       80
       80
       +
           t

     

       81
       81
       +
       end

     

       40
       82
        
       

     

       41
       83
        
       (** VacationResponse/set: Response type.

     

       42
       84
        
           @see <https://www.rfc-editor.org/rfc/rfc8621.html#section-8.2> RFC 8621, Section 8.2 *)

     

       43
       43
       -
       type vacation_response_set_response = {

     

       44
       44
       -
         set_resp_account_id : id;

     

       45
       45
       -
         set_resp_old_state : string option;

     

       46
       46
       -
         set_resp_new_state : string;

     

       47
       47
       -
         set_resp_updated : vacation_response_obj option id_map option;

     

       48
       48
       -
         set_resp_not_updated : set_error id_map option;

     

       49
       49
       -
       }

     

       85
       85
       +
       module Vacation_response_set_response : sig

     

       86
       86
       +
         type t

     

       87
       87
       +
         

     

       88
       88
       +
         val account_id : t -> id

     

       89
       89
       +
         val old_state : t -> string option

     

       90
       90
       +
         val new_state : t -> string

     

       91
       91
       +
         val updated : t -> Vacation_response.t option id_map option

     

       92
       92
       +
         val not_updated : t -> Set_error.t id_map option

     

       93
       93
       +
         

     

       94
       94
       +
         val v :

     

       95
       95
       +
           account_id:id ->

     

       96
       96
       +
           ?old_state:string ->

     

       97
       97
       +
           new_state:string ->

     

       98
       98
       +
           ?updated:Vacation_response.t option id_map ->

     

       99
       99
       +
           ?not_updated:Set_error.t id_map ->

     

       100
       100
       +
           unit ->

     

       101
       101
       +
           t

     

       102
       102
       +
       end

+63 -27

output/jmap_wire.mli

···

       5
       5
        
       

     

       6
       6
        
       (** An invocation tuple within a request or response.

     

       7
       7
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-3.2> RFC 8620, Section 3.2 *)

     

       8
       8
       -
       type invocation = {

     

       9
       9
       -
         method_name : string;

     

       10
       10
       -
         arguments : Yojson.Safe.t;

     

       11
       11
       -
         method_call_id : string;

     

       12
       12
       -
       }

     

       8
       8
       +
       module Invocation : sig

     

       9
       9
       +
         type t

     

       10
       10
       +
         

     

       11
       11
       +
         val method_name : t -> string

     

       12
       12
       +
         val arguments : t -> Yojson.Safe.t

     

       13
       13
       +
         val method_call_id : t -> string

     

       14
       14
       +
         

     

       15
       15
       +
         val v : 

     

       16
       16
       +
           ?arguments:Yojson.Safe.t ->

     

       17
       17
       +
           method_name:string ->

     

       18
       18
       +
           method_call_id:string ->

     

       19
       19
       +
           unit ->

     

       20
       20
       +
           t

     

       21
       21
       +
       end

     

       22
       22
       +
       

     

       23
       23
       +
       (** A response invocation part, which can be a standard response or an error.

     

       24
       24
       +
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-3.4> RFC 8620, Section 3.4

     

       25
       25
       +
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-3.6.2> RFC 8620, Section 3.6.2 *)

     

       26
       26
       +
       type response_invocation =

     

       27
       27
       +
         | Response of Invocation.t

     

       28
       28
       +
         | Error of Method_error.t * string (* string is the method_call_id *)

     

       13
       29
        
       

     

       14
       30
        
       (** A reference to a previous method call's result.

     

       15
       31
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-3.7> RFC 8620, Section 3.7 *)

     

       16
       16
       -
       type result_reference = {

     

       17
       17
       -
         result_of : string; (** The method call id of the previous call *)

     

       18
       18
       -
         name : string; (** The required response name *)

     

       19
       19
       -
         path : json_pointer; (** JSON Pointer path *)

     

       20
       20
       -
       }

     

       32
       32
       +
       module Result_reference : sig

     

       33
       33
       +
         type t

     

       34
       34
       +
         

     

       35
       35
       +
         val result_of : t -> string

     

       36
       36
       +
         val name : t -> string

     

       37
       37
       +
         val path : t -> json_pointer

     

       38
       38
       +
         

     

       39
       39
       +
         val v :

     

       40
       40
       +
           result_of:string ->

     

       41
       41
       +
           name:string ->

     

       42
       42
       +
           path:json_pointer ->

     

       43
       43
       +
           unit ->

     

       44
       44
       +
           t

     

       45
       45
       +
       end

     

       21
       46
        
       

     

       22
       47
        
       (** The Request object.

     

       23
       48
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-3.3> RFC 8620, Section 3.3 *)

     

       24
       24
       -
       type request = {

     

       25
       25
       -
         using : string list;

     

       26
       26
       -
         method_calls : invocation list;

     

       27
       27
       -
         created_ids : id id_map option;

     

       28
       28
       -
       }

     

       29
       29
       -
       

     

       30
       30
       -
       (** A response invocation part, which can be a standard response or an error.

     

       31
       31
       -
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-3.4> RFC 8620, Section 3.4

     

       32
       32
       -
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-3.6.2> RFC 8620, Section 3.6.2 *)

     

       33
       33
       -
       type response_invocation =

     

       34
       34
       -
         | Response of invocation

     

       35
       35
       -
         | Error of method_error * string (* string is the method_call_id *)

     

       49
       49
       +
       module Request : sig

     

       50
       50
       +
         type t

     

       51
       51
       +
         

     

       52
       52
       +
         val using : t -> string list

     

       53
       53
       +
         val method_calls : t -> Invocation.t list

     

       54
       54
       +
         val created_ids : t -> id id_map option

     

       55
       55
       +
         

     

       56
       56
       +
         val v :

     

       57
       57
       +
           using:string list ->

     

       58
       58
       +
           method_calls:Invocation.t list ->

     

       59
       59
       +
           ?created_ids:id id_map ->

     

       60
       60
       +
           unit ->

     

       61
       61
       +
           t

     

       62
       62
       +
       end

     

       36
       63
        
       

     

       37
       64
        
       (** The Response object.

     

       38
       65
        
           @see <https://www.rfc-editor.org/rfc/rfc8620.html#section-3.4> RFC 8620, Section 3.4 *)

     

       39
       39
       -
       type response = {

     

       40
       40
       -
         method_responses : response_invocation list;

     

       41
       41
       -
         created_ids : id id_map option;

     

       42
       42
       -
         session_state : string;

     

       43
       43
       -
       }
     

       66
       66
       +
       module Response : sig

     

       67
       67
       +
         type t

     

       68
       68
       +
         

     

       69
       69
       +
         val method_responses : t -> response_invocation list

     

       70
       70
       +
         val created_ids : t -> id id_map option

     

       71
       71
       +
         val session_state : t -> string

     

       72
       72
       +
         

     

       73
       73
       +
         val v :

     

       74
       74
       +
           method_responses:response_invocation list ->

     

       75
       75
       +
           ?created_ids:id id_map ->

     

       76
       76
       +
           session_state:string ->

     

       77
       77
       +
           unit ->

     

       78
       78
       +
           t

     

       79
       79
       +
       end