Make.Data_encoding
type json = [
|
`O of (string * json) list
|
`Bool of bool
|
`Float of float
|
`A of json list
|
`Null
|
`String of string
]
In memory JSON data
type 'a encoding = 'a t
val classify : 'a encoding -> [ `Fixed of int | `Dynamic | `Variable ]
val null : unit encoding
val empty : unit encoding
val unit : unit encoding
val constant : string -> unit encoding
val int8 : int encoding
val uint8 : int encoding
val int16 : int encoding
val uint16 : int encoding
val int31 : int encoding
val int32 : int32 encoding
val int64 : int64 encoding
val bool : bool encoding
val string : string encoding
val float : float encoding
val string_enum : (string * 'a) list -> 'a encoding
module Fixed : sig ... end
module Variable : sig ... end
module Bounded : sig ... end
val json_schema : json_schema encoding
val conv :
('a -> 'b) ->
('b -> 'a) ->
?schema:json_schema ->
'b encoding ->
'a encoding
val force_decode : 'a lazy_t -> 'a option
module Json : sig ... end
module Binary : sig ... end