Make (init.Init.Graphql

Parameters

module Schema : Graphql_intf.Schema

module Io : Cohttp.S.IO with type 'a t = 'a Schema.Io.t

module Body : HttpBody with type +'a io := 'a Schema.Io.t

Signature

module Ws : sig ... end

module Websocket_transport : sig ... end

val (>>=) : 'a Io.t -> ( 'a -> 'b Io.t ) -> 'b Io.t

type response_action = [

| `Expert of Cohttp.Response.t * ( Io.ic -> Io.oc -> unit Io.t )

| `Response of Cohttp.Response.t * Body.t

]

type 'conn callback =
  'conn ->
  Cohttp.Request.t ->
  Body.t ->
  response_action Io.t

val respond_string : 
  status:Cohttp__.Code.status_code ->
  body:string ->
  unit ->
  [> `Response of Cohttp.Response.t * Body.t ] Io.t

val static_file_response : 
  string ->
  [> `Response of Cohttp.Response.t * Body.t ] Io.t

val execute_query : 
  'a ->
  'b Schema.schema ->
  Schema.variables option ->
  string option ->
  string ->
  [ `Response of Yojson.Basic.json
  | `Stream of Yojson.Basic.json Schema.response Schema.Io.Stream.t ]
    Schema.response
    Io.t

val execute_request : 
  'a Schema.schema ->
  'b ->
  Cohttp.Request.t ->
  Body.t ->
  [> `Response of Cohttp.Response.t * Body.t ] Io.t

val make_callback : 
  ( Cohttp.Request.t -> 'ctx ) ->
  'ctx Schema.schema ->
  'conn callback