Server.MakeSourcemodule S : Irmin.Generic_key.Smodule Remote : sig ... endtype response_action = [ | `Expert of Cohttp.Response.t * (IO.ic -> IO.oc -> unit Lwt.t)| `Response of Cohttp.Response.t * Cohttp_lwt.Body.t ]val execute_request :
unit Irmin_graphql.Server.Schema.schema ->
Cohttp_lwt.Request.t ->
Cohttp_lwt.Body.t ->
response_action Lwt.t