Module Data_encoding.Json
val construct :
?include_default_fields:[ `Always | `Auto | `Never ] ->
't encoding ->
't ->
json
val destruct : ?bson_relaxation:bool -> 't encoding -> json -> 't
and path_item = [
| `Field of string
| `Index of int
| `Next
| `Star
]
exception Cannot_destruct of path * exn
exception Unexpected of string * string
exception No_case_matched of exn list
exception Bad_array_size of int * int
exception Missing_field of string
exception Unexpected_field of string
val wrap_error : ('a -> 'b) -> 'a -> 'b