RPC: launch: remove unused argument

This commit is contained in:
Vincent Bernardoff 2016-11-29 16:41:17 +01:00
parent 199bd93696
commit bc7f4b48e2
2 changed files with 5 additions and 5 deletions

View File

@ -35,8 +35,8 @@ module ConnectionMap = Map.Make(Cohttp.Connection)
exception Invalid_method
exception Cannot_parse_body of string
(* Promise a running RPC server. Takes the address and port. *)
let launch addr port root =
(* Promise a running RPC server. Takes the port. *)
let launch port root =
(* launch the worker *)
let cancelation, canceler, _ = Lwt_utils.canceler () in
let open Cohttp_lwt_unix in
@ -119,7 +119,7 @@ let launch addr port root =
and conn_closed (_, con) =
log_info "connection close %s" (Cohttp.Connection.to_string con) ;
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 mode = `TCP (`Port port) in
let stop = cancelation () in

View File

@ -282,14 +282,14 @@ val register_describe_directory_service:
(** A handle on the server worker. *)
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
/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
describe the input and output of the service, if it is
callable. Calling /pipe will read a sequence of services to call in
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. *)
val shutdown : server -> unit Lwt.t