this repo has no description
anil.recoil.org
1(*---------------------------------------------------------------------------
2 Copyright (c) 2025 Anil Madhavapeddy. All rights reserved.
3 SPDX-License-Identifier: ISC
4 ---------------------------------------------------------------------------*)
5
6let encode ?format jsont value =
7 Jsont_bytesrw.encode_string' ?format jsont value
8
9let decode ?locs jsont json =
10 Jsont_bytesrw.decode_string' ?locs jsont json
11
12let encode_request ?format request =
13 encode ?format Jmap_proto.Request.jsont request
14
15let encode_request_exn ?format request =
16 match encode_request ?format request with
17 | Ok s -> s
18 | Error e -> failwith (Jsont.Error.to_string e)
19
20let decode_response ?locs json =
21 decode ?locs Jmap_proto.Response.jsont json
22
23let decode_response_exn ?locs json =
24 match decode_response ?locs json with
25 | Ok r -> r
26 | Error e -> failwith (Jsont.Error.to_string e)
27
28let decode_session ?locs json =
29 decode ?locs Jmap_proto.Session.jsont json
30
31let decode_session_exn ?locs json =
32 match decode_session ?locs json with
33 | Ok s -> s
34 | Error e -> failwith (Jsont.Error.to_string e)
35
36let decode_upload_response ?locs json =
37 decode ?locs Jmap_proto.Blob.upload_response_jsont json
38
39let decode_upload_response_exn ?locs json =
40 match decode_upload_response ?locs json with
41 | Ok r -> r
42 | Error e -> failwith (Jsont.Error.to_string e)