RPC: launch: remove unused argument
This commit is contained in:
parent
199bd93696
commit
bc7f4b48e2
@ -35,8 +35,8 @@ module ConnectionMap = Map.Make(Cohttp.Connection)
|
|||||||
exception Invalid_method
|
exception Invalid_method
|
||||||
exception Cannot_parse_body of string
|
exception Cannot_parse_body of string
|
||||||
|
|
||||||
(* Promise a running RPC server. Takes the address and port. *)
|
(* Promise a running RPC server. Takes the port. *)
|
||||||
let launch addr port root =
|
let launch port root =
|
||||||
(* launch the worker *)
|
(* launch the worker *)
|
||||||
let cancelation, canceler, _ = Lwt_utils.canceler () in
|
let cancelation, canceler, _ = Lwt_utils.canceler () in
|
||||||
let open Cohttp_lwt_unix in
|
let open Cohttp_lwt_unix in
|
||||||
@ -119,7 +119,7 @@ let launch addr port root =
|
|||||||
and conn_closed (_, con) =
|
and conn_closed (_, con) =
|
||||||
log_info "connection close %s" (Cohttp.Connection.to_string con) ;
|
log_info "connection close %s" (Cohttp.Connection.to_string con) ;
|
||||||
shutdown_stream con in
|
shutdown_stream con in
|
||||||
lwt_log_info "create server %s:%d" addr port >>= fun () ->
|
lwt_log_info "create server listening on port %d" port >>= fun () ->
|
||||||
let ctx = Cohttp_lwt_unix_net.init () in
|
let ctx = Cohttp_lwt_unix_net.init () in
|
||||||
let mode = `TCP (`Port port) in
|
let mode = `TCP (`Port port) in
|
||||||
let stop = cancelation () in
|
let stop = cancelation () in
|
||||||
|
@ -282,14 +282,14 @@ val register_describe_directory_service:
|
|||||||
(** A handle on the server worker. *)
|
(** A handle on the server worker. *)
|
||||||
type server
|
type server
|
||||||
|
|
||||||
(** Promise a running RPC serve ; takes the address and port. To call
|
(** Promise a running RPC serve ; takes the port. To call
|
||||||
an RPX at /p/a/t/h/ in the provided service, one must call the URI
|
an RPX at /p/a/t/h/ in the provided service, one must call the URI
|
||||||
/call/p/a/t/h/. Calling /list/p/a/t/h/ will list the services
|
/call/p/a/t/h/. Calling /list/p/a/t/h/ will list the services
|
||||||
prefixed by /p/a/t/h/, if any. Calling /schema/p/a/t/h/ will
|
prefixed by /p/a/t/h/, if any. Calling /schema/p/a/t/h/ will
|
||||||
describe the input and output of the service, if it is
|
describe the input and output of the service, if it is
|
||||||
callable. Calling /pipe will read a sequence of services to call in
|
callable. Calling /pipe will read a sequence of services to call in
|
||||||
sequence from the request body, see {!pipe_encoding}. *)
|
sequence from the request body, see {!pipe_encoding}. *)
|
||||||
val launch : string -> int -> unit directory -> server Lwt.t
|
val launch : int -> unit directory -> server Lwt.t
|
||||||
|
|
||||||
(** Kill an RPC server. *)
|
(** Kill an RPC server. *)
|
||||||
val shutdown : server -> unit Lwt.t
|
val shutdown : server -> unit Lwt.t
|
||||||
|
Loading…
Reference in New Issue
Block a user