1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
(* Copyright 2022-2023 Kotoi-Xie Consultancy, Inc. This file is a part of the
==== Bindoj (https://kxc.dev/bindoj) ====
software project that is developed, maintained, and distributed by
Kotoi-Xie Consultancy, Inc. (https://kxc.inc) which is also known as KXC.
Licensed under the Apache License, Version 2.0 (the "License"); you may not
use this file except in compliance with the License. You may obtain a copy
of the License at http://www.apache.org/licenses/LICENSE-2.0. Unless required
by applicable law or agreed to in writing, software distributed under the
License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS
OF ANY KIND, either express or implied. See the License for the specific
language governing permissions and limitations under the License.
*)
(* Acknowledgements --- AnchorZ Inc. --- The current/initial version or a
significant portion of this file is developed under the funding provided by
AnchorZ Inc. to satisfy its needs in its product development workflow.
*)
type jv = Json.jv
type yojson = Json.yojson
let pp_either vppl vppr ppf either =
let open Either in
match either with
| Left x -> Format.fprintf ppf "Left(%a)" vppl x
| Right x -> Format.fprintf ppf "Right(%a)" vppr x
let pp_jv ppf jv =
Yojson.pp ppf (Json.to_yojson jv :> Yojson.t)
let pp_yojson ppf (yojson : yojson) =
Yojson.pp ppf (yojson :> Yojson.t)
let yojson_of_jv = Json.to_yojson
let yojson_of_either : ('a -> yojson) -> ('b -> yojson) -> ('a, 'b) either -> yojson =
fun yojson_of_a yojson_of_b ->
let open Either in
function
| Left x -> yojson_of_a x
| Right x -> yojson_of_b x
type 'a assoc = (string * 'a) list [@@deriving show]
let yojson_of_assoc yojson_of_a fields : yojson =
`Assoc (fields |&> fun (k, v) -> (k, yojson_of_a v))
include Ppx_yojson_conv_lib.Yojson_conv