Data_encoding.Json
val schema : ?definitions_path:string -> 'a encoding -> json_schema
type path = path_item list
exception Cannot_destruct of path * exn
val print_error :
?print_unknown:(Format.formatter -> exn -> unit) ->
Format.formatter ->
exn ->
unit
val cannot_destruct : ('a, Format.formatter, unit, 'b) Pervasives.format4 -> 'a
val pp : Format.formatter -> json -> unit