Module Server.Make

Create a GraphQL server with default GraphQL types for S.

Parameters

module Server : Cohttp_lwt.S.Server
module Config : CONFIG

Signature

module IO = Server.IO
type repo = Store.repo
type server = Server.t
type response_action = [
  1. | `Expert of Cohttp.Response.t * (IO.ic -> IO.oc -> unit Lwt.t)
  2. | `Response of Cohttp.Response.t * Cohttp_lwt.Body.t
]
val schema : repo -> unit Schema.schema
val execute_request : unit Schema.schema -> Cohttp_lwt.Request.t -> Cohttp_lwt.Body.t -> response_action Lwt.t
val v : repo -> server