Legend:
Library
Module
Module type
Parameter
Class
Class type
Library
Module
Module type
Parameter
Class
Class type
type 'a io = 'a Lwt.t
type ('a, !'b) op = 'b Webmachine.Rd.t -> ('a result * 'b Webmachine.Rd.t) io constraint 'b = [> `Empty ]
type !'a provider = ('a, 'a) op constraint 'a = [> `Empty ]
type !'a acceptor = (bool, 'a) op constraint 'a = [> `Empty ]
val continue : 'a -> ('a, [> `Empty ]) op
val respond : ?body:[> `Empty ] as 'b -> int -> ('a, 'b) op
class virtual !'a resource : object ... end
val to_handler :
?dispatch_path:string ->
?path_info:(string * string) list ->
resource:[> `Empty ] as 'a resource ->
body:'a ->
request:Cohttp.Request.t ->
unit ->
(Cohttp.Code.status_code * Cohttp.Header.t * 'a * string list) io
val dispatch :
((Dispatch.tag * string) list
* Dispatch.typ
* (unit ->
[> `Empty ] as 'a resource))
list ->
body:'a ->
request:Cohttp.Request.t ->
(Cohttp.Code.status_code * Cohttp.Header.t * 'a * string list) option io
val dispatch' :
(string * (unit -> [> `Empty ] as 'a resource)) list ->
body:'a ->
request:Cohttp.Request.t ->
(Cohttp.Code.status_code * Cohttp.Header.t * 'a * string list) option io