pa_ppx

PPX Rewriters for Ocaml, written using Camlp5
IN THIS PACKAGE
val result_of_yojson : ( [> `String of string ] as 'a -> ( 'b, string ) Rresult.result ) -> ( 'a -> ( 'c, string ) Rresult.result ) -> [> `List of 'a list ] -> ( ( 'b, 'c ) result, string ) Rresult.result
val hashtbl_to_yojson : ( 'a -> 'b ) -> ( 'c -> 'b ) -> ( 'a, 'c ) Hashtbl.t -> [> `List of [> `List of 'b list ] list ]
val hashtbl_of_yojson : ( Yojson.Safe.t -> ( 'a, string ) Rresult.result ) -> ( Yojson.Safe.t -> ( 'b, string ) Rresult.result ) -> Yojson.Safe.t -> ( ( 'a, 'b ) Hashtbl.t, string ) Rresult.result
val unit_to_yojson : unit -> [> `Null ]
val int_to_yojson : 'a -> [> `Int of 'a ]
val bool_to_yojson : 'a -> [> `Bool of 'a ]
val int32_to_yojson : int32 -> [> `Intlit of string ]
val int64_to_yojson : int64 -> [> `Intlit of string ]
val string_to_yojson : 'a -> [> `String of 'a ]
val nativeint_to_yojson : nativeint -> [> `Intlit of string ]
val float_to_yojson : 'a -> [> `Float of 'a ]
val list_to_yojson : ( 'a -> 'b ) -> 'a list -> [> `List of 'b list ]
val array_to_yojson : ( 'a -> 'b ) -> 'a array -> [> `List of 'b list ]
val ref_to_yojson : ( 'a -> 'b ) -> 'a ref -> 'b
val option_to_yojson : ( 'a -> [> `Null ] as 'b ) -> 'a option -> 'b
val unit_of_yojson : 'a -> [> `Null ] -> ( unit, 'a ) Result.t
val int_of_yojson : 'a -> [> `Int of 'b ] -> ( 'b, 'a ) Result.t
val bool_of_yojson : 'a -> [> `Bool of 'b ] -> ( 'b, 'a ) Result.t
val int32_of_yojson : 'a -> [> `Int of int | `Intlit of string ] -> ( int32, 'a ) Result.t
val int64_of_yojson : 'a -> [> `Int of int | `Intlit of string ] -> ( int64, 'a ) Result.t
val string_of_yojson : 'a -> [> `String of 'b ] -> ( 'b, 'a ) Result.t
val nativeint_of_yojson : 'a -> [> `Int of int | `Intlit of string ] -> ( nativeint, 'a ) Result.t
val float_of_yojson : 'a -> [> `Float of float | `Int of int | `Intlit of string ] -> ( float, 'a ) Result.t
val list_of_yojson : 'a -> ( 'b -> ( 'c, 'a ) Rresult.result ) -> [> `List of 'b list ] -> ( 'c list, 'a ) Rresult.result
val array_of_yojson : 'a -> ( 'b -> ( 'c, 'a ) Rresult.result ) -> [> `List of 'b list ] -> ( 'c array, 'a ) Rresult.result
val ref_of_yojson : ( 'a -> ( 'b, 'c ) Rresult.result ) -> 'a -> ( 'b ref, 'c ) Rresult.result
val option_of_yojson : ( [> `Null ] as 'a -> ( 'b, 'c ) result ) -> 'a -> ( 'b option, 'c ) Result.t