Functor Amall_http_service.Service (.ml)

module Service: functor (IO : Amall_types.IO_Type) -> functor (I : It_type.IT  with type 'a It_IO.m = 'a IO.m
    and type It_IO.input_channel = IO.input_channel) -> sig .. end

Parameters:

`IO`	:	`Amall_types.IO_Type`
`I`	:	`It_type.IT with type 'a It_IO.m = 'a IO.m and type It_IO.input_channel = IO.input_channel`

module H: Amall_http.Make(IO)(I)

module HS: Amall_http_server.Http_server(IO)(I)

type websocket_service_func = H.websocket_service_func

type websocket_service_func_worker = H.websocket_service_func_worker

val it_post_vars : (char, (string * string) list) I.iteratee

type listener = {

	`io_server_lazy : IO.server Lazy.t;`
	`root_http_disp_level : H.http_service_func disp_level;`
	`root_ws_disp_level : websocket_service_func disp_level;`

}

type 'a mount_point = 'a disp_level

type 'a endpoint = 'a mount_point *
       [ `Fallback of Amall_http.segpath
       | `Service of Amall_http.segpath * Amall_http.seg ]

val mount_rel_http : ('a -> Amall_http.request -> ('b, Amall_http.response) I.iteratee)
       disp_level ->
       Amall_http.seg list ->
       ('a -> Amall_http.request -> ('b, Amall_http.response) I.iteratee)
       disp_level

val mount_rel_ws : (Amall_http.segpath, Amall_http.request,
        H.Ws.ws_out_socket,
        H.websocket_service_func_worker)
       Cd_All.Partapp3.partapp3 disp_level ->
       Amall_http.seg list ->
       (Amall_http.segpath, Amall_http.request,
        H.Ws.ws_out_socket,
        H.websocket_service_func_worker)
       Cd_All.Partapp3.partapp3 disp_level

val mount_http : ('a -> Amall_http.request -> ('b, Amall_http.response) I.iteratee)
       endpoint ->
       ('a -> Amall_http.request -> ('b, Amall_http.response) I.iteratee) -> unit

val mount_websocket : (Amall_http.segpath, Amall_http.request,
        H.Ws.ws_out_socket,
        H.websocket_service_func_worker)
       Cd_All.Partapp3.partapp3 endpoint ->
       (Amall_http.segpath, Amall_http.request,
        H.Ws.ws_out_socket,
        H.websocket_service_func_worker)
       Cd_All.Partapp3.partapp3 -> unit

val listener_create : Amall_http_server.listen_addr ->
       listener *
       H.http_service_func
       disp_level *
       (Amall_http.segpath, Amall_http.request,
        H.Ws.ws_out_socket,
        H.websocket_service_func_worker)
       Cd_All.Partapp3.partapp3 disp_level

val io_listener_run : listener -> IO.server

val listener_run : listener -> unit

val listener_stop : listener -> unit