Loop (fields_derivers.Fields_derivers

val json_to_string_gql : Yojson.Safe.t -> string

val arg_query : Yojson.Safe.t -> string

val out_query : string -> string

val run : 
  < contramap : ( 'a -> 'b ) Core_kernel.ref
    ; graphql_arg : ( unit -> 'a0 Schema.Arg.arg_typ ) Core_kernel.ref
    ; graphql_fields : 'a1 Graphql.Fields.Input.T.t Core_kernel.ref
    ; graphql_query : string option Core_kernel.ref
    ; map : ( 'c -> 'a2 ) Core_kernel.ref
    ; of_json : ( Yojson.Safe.t -> 'c ) Core_kernel.ref
    ; to_json : ( 'b -> Yojson.Safe.t ) Core_kernel.ref.. > ->
  'a3 ->
  unit Schema.Io.t