Loop (fields_derivers.Fields_derivers_zkapps.Derivers.Test.Loop)

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 Fields_derivers_graphql.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 Fields_derivers_graphql.Schema.Io.t