Make_ext (irmin-graphql.Irmin_graphql_unix.Server.Make

Parameters

module S : Irmin.Generic_key.S

module Remote : sig ... end

module T : 
  Irmin_graphql.Server.CUSTOM_TYPES
    with type path := S.path
     and type metadata := S.metadata
     and type contents := S.contents
     and type hash := S.hash
     and type branch := S.branch
     and type commit_key := S.commit_key
     and type contents_key := S.contents_key
     and type node_key := S.node_key

Signature

module IO = Cohttp_lwt_unix.IO

type repo = S.repo

type server = Cohttp_lwt_unix.Server.t

type 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 Irmin_graphql.Server.Schema.schema

val execute_request : 
  unit Irmin_graphql.Server.Schema.schema ->
  Cohttp_lwt.Request.t ->
  Cohttp_lwt.Body.t ->
  response_action Lwt.t

val v : repo -> server