Create a GraphQL server with custom GraphQL types.
module Server : Cohttp_lwt.S.Servermodule Types :
CUSTOM_TYPES
with type path := Store.path
and type metadata := Store.metadata
and type contents := Store.contents
and type hash := Store.hash
and type branch := Store.branch
and type commit_key := Store.commit_key
and type contents_key := Store.contents_key
and type node_key := Store.node_keymodule IO = Server.IOtype server = Server.ttype response_action = [ | `Expert of Cohttp.Response.t * (IO.ic -> IO.oc -> unit Lwt.t)| `Response of Cohttp.Response.t * Cohttp_lwt.Body.t ]val schema : repo -> unit Schema.schemaval execute_request :
unit Schema.schema ->
Cohttp_lwt.Request.t ->
Cohttp_lwt.Body.t ->
response_action Lwt.t