val apply :
t ->
(Core.Ctx.t -> Sihl__.Web_res.t Lwt.t) ->
Core.Ctx.t ->
Sihl__.Web_res.t Lwt.tapply m h applies the middleware m with the handler h, so that the middleware logic wraps the handler.
val apply_stack : stack -> Sihl__.Web_route.t -> Sihl__.Web_route.tmodule Clickjacking : sig ... endmodule Cookie : sig ... endmodule Csrf : sig ... endmodule Db : sig ... endmodule Error : sig ... endmodule Message : sig ... endmodule Gzip : sig ... endmodule Security : sig ... endmodule Static : sig ... endmodule Session : sig ... endmodule Authn : sig ... endval error : unit -> tval static :
local_path_f:(unit -> string) ->
uri_prefix_f:(unit -> string) ->
?headers:Cohttp.Header.t ->
?etag_of_fname:(string -> string) ->
unit ->
tval cookie : unit -> tval csrf : unit -> tval create :
name:string ->
((Core.Ctx.t -> Sihl__.Web_res.t Lwt.t) ->
Core.Ctx.t ->
Sihl__.Web_res.t Lwt.t) ->
tcreate ~name (h -> h) create a middleware with name.