···

       
14
       
 
       
 (description "This is all still a work in progress")

     

       
15
       
 
       
 (depends

     

       
16
       
 
       
  (ocaml (>= "5.2.0"))

     

       
17
       
-
       
  ezjsonm

     

       
18
       
 
       
  ptime

     

       
19
       
 
       
  cohttp

     

       
20
       
 
       
  cohttp-lwt-unix

     

       
0
       
 
       

     

       
21
       
 
       
  uri

     

       
22
       
 
       
  lwt))

     

···

       
14
       
 
       
 (description "This is all still a work in progress")

     

       
15
       
 
       
 (depends

     

       
16
       
 
       
  (ocaml (>= "5.2.0"))

     

       
0
       
 
       

     

       
17
       
 
       
  ptime

     

       
18
       
 
       
  cohttp

     

       
19
       
 
       
  cohttp-lwt-unix

     

       
20
       
+
       
  ezjsonm

     

       
21
       
 
       
  uri

     

       
22
       
 
       
  lwt))

     

···

       
10
       
 
       
depends: [

     

       
11
       
 
       
  "dune" {>= "3.17"}

     

       
12
       
 
       
  "ocaml" {>= "5.2.0"}

     

       
13
       
-
       
  "ezjsonm"

     

       
14
       
 
       
  "ptime"

     

       
15
       
 
       
  "cohttp"

     

       
16
       
 
       
  "cohttp-lwt-unix"

     

       
0
       
 
       

     

       
17
       
 
       
  "uri"

     

       
18
       
 
       
  "lwt"

     

       
19
       
 
       
  "odoc" {with-doc}

     

···

       
10
       
 
       
depends: [

     

       
11
       
 
       
  "dune" {>= "3.17"}

     

       
12
       
 
       
  "ocaml" {>= "5.2.0"}

     

       
0
       
 
       

     

       
13
       
 
       
  "ptime"

     

       
14
       
 
       
  "cohttp"

     

       
15
       
 
       
  "cohttp-lwt-unix"

     

       
16
       
+
       
  "ezjsonm"

     

       
17
       
 
       
  "uri"

     

       
18
       
 
       
  "lwt"

     

       
19
       
 
       
  "odoc" {with-doc}

     

···

       
1
       
 
       
(library

     

       
2
       
 
       
  (name jmap)

     

       
3
       
 
       
  (public_name jmap)

     

       
4
       
-
       
  (libraries ezjsonm ptime cohttp cohttp-lwt-unix uri lwt))

     

···

       
1
       
 
       
(library

     

       
2
       
 
       
  (name jmap)

     

       
3
       
 
       
  (public_name jmap)

     

       
4
       
+
       
  (libraries str ezjsonm ptime cohttp cohttp-lwt-unix uri lwt))

     

···

       
329
       
 
       


     

       
330
       
 
       
  (** Convert Ezjsonm.value to string *)

     

       
331
       
 
       
  let json_to_string json =

     

       
332
       
-
       
    Ezjsonm.to_string ~minify:false json

     

       
333
       
 
       


     

       
334
       
 
       
  (** Parse response string as JSON value *)

     

       
335
       
 
       
  let parse_json_string str =

     
···

       
376
       
 
       
  (** Serialize a JMAP request object to JSON *)

     

       
377
       
 
       
  let serialize_request req =

     

       
378
       
 
       
    let method_calls_json =

     

       
379
       
-
       
      `A (List.map (fun inv ->

     

       
380
       
 
       
        `A [`String inv.name; inv.arguments; `String inv.method_call_id]

     

       
381
       
 
       
      ) req.method_calls)

     

       
382
       
 
       
    in

     
···

       
388
       
 
       
    let json = match req.created_ids with

     

       
389
       
 
       
      | Some ids ->

     

       
390
       
 
       
          let created_ids_json = `O (List.map (fun (k, v) -> (k, `String v)) ids) in

     

       
391
       
-
       
          Ezjsonm.update json ["createdIds"] created_ids_json

     

       
392
       
 
       
      | None -> json

     

       
393
       
 
       
    in

     

       
394
       
 
       
    json_to_string json

     

···

       
329
       
 
       


     

       
330
       
 
       
  (** Convert Ezjsonm.value to string *)

     

       
331
       
 
       
  let json_to_string json =

     

       
332
       
+
       
    Ezjsonm.value_to_string ~minify:false json

     

       
333
       
 
       


     

       
334
       
 
       
  (** Parse response string as JSON value *)

     

       
335
       
 
       
  let parse_json_string str =

     
···

       
376
       
 
       
  (** Serialize a JMAP request object to JSON *)

     

       
377
       
 
       
  let serialize_request req =

     

       
378
       
 
       
    let method_calls_json =

     

       
379
       
+
       
      `A (List.map (fun (inv : 'a invocation) ->

     

       
380
       
 
       
        `A [`String inv.name; inv.arguments; `String inv.method_call_id]

     

       
381
       
 
       
      ) req.method_calls)

     

       
382
       
 
       
    in

     
···

       
388
       
 
       
    let json = match req.created_ids with

     

       
389
       
 
       
      | Some ids ->

     

       
390
       
 
       
          let created_ids_json = `O (List.map (fun (k, v) -> (k, `String v)) ids) in

     

       
391
       
+
       
          Ezjsonm.update json ["createdIds"] (Some created_ids_json)

     

       
392
       
 
       
      | None -> json

     

       
393
       
 
       
    in

     

       
394
       
 
       
    json_to_string json