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 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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user