Of_yojson (fields_derivers.Fields_derivers_json.Of

module Input : sig ... end

module Creator : sig ... end

exception Field_not_found of string

val add_field : 
  ?skip_data:'t ->
  t_fields_annots:( string -> (Core_kernel.String.t * string option) list ) ->
  ( 't0,
    < map : ( 't1 -> 'c ) Core_kernel.ref
    ; of_json : ( Yojson.Safe.t -> 't1 ) Core_kernel.ref
    ; skip : bool Core_kernel.ref.. >,
    'c0 )
    Input.t ->
  ( 'a, 'b, 'd ) Fieldslib.Field.t_with_perm ->
  'obj ->
  ( < of_json_creator : 
      ( Core_kernel.String.t, Yojson.Safe.t, 'e ) Core_kernel.Map.t
        Core_kernel.ref.. > ->
  'c1 )
  * 'obj

exception Json_not_object

val finish : 
  (( < map : ( 'b -> 'b ) Core_kernel.ref
       ; of_json : 
         ( [> `Assoc of (Core_kernel.String.Map.Key.t * 'c) list ] ->
           'd )
           Core_kernel.ref
       ; of_json_creator : 'c Core_kernel.String.Map.t Core_kernel.ref.. > as 'a ->
   'e )
   * 'f) ->
  'g

exception Invalid_json_scalar of [ `Bool | `Int | `List | `String ]

val skip : 
  < contramap : ( 'b -> 'b ) Core_kernel.ref
    ; of_json : ( 'c -> 'd ) Core_kernel.ref.. > as 'a ->
  'e

val int : 
  < map : ( 'b -> 'b ) Core_kernel.ref
    ; of_json : ( [> `Int of 'c ] -> 'd ) Core_kernel.ref.. > as 'a ->
  'e

val string : 
  < map : ( 'b -> 'b ) Core_kernel.ref
    ; of_json : ( [> `String of 'c ] -> 'd ) Core_kernel.ref.. > as 'a ->
  'e

val bool : 
  < map : ( 'b -> 'b ) Core_kernel.ref
    ; of_json : ( [> `Bool of 'c ] -> 'd ) Core_kernel.ref.. > as 'a ->
  'e

val list : 
  < map : ( 'a -> 'b ) Core_kernel.ref
    ; of_json : ( 'c -> 'd ) Core_kernel.ref.. > ->
  < map : ( 'a list -> 'b list ) Core_kernel.ref
    ; of_json : ( [> `List of 'c list ] -> 'd list ) Core_kernel.ref.. > as 'e ->
  'f

val option : 
  < map : ( 'a -> 'b ) Core_kernel.ref
    ; of_json : ( [> `Null ] as 'c -> 'd ) Core_kernel.ref.. > ->
  < map : ( 'a option -> 'b option ) Core_kernel.ref
    ; of_json : ( 'f -> 'g option ) Core_kernel.ref.. > as 'e ->
  'h

val map : 
  f:( 'a -> 'b ) ->
  < map : ( 'c -> 'd ) Core_kernel.ref ; of_json : 'e Core_kernel.ref.. > ->
  < map : ( 'g -> 'h ) Core_kernel.ref ; of_json : 'i Core_kernel.ref.. > as 'f ->
  'j