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