diff --git a/src/node/net/RPC.ml b/src/node/net/RPC.ml index 6352618f6..6bde5a48c 100644 --- a/src/node/net/RPC.ml +++ b/src/node/net/RPC.ml @@ -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 diff --git a/src/node/net/RPC.mli b/src/node/net/RPC.mli index 998936b2c..77a47182d 100644 --- a/src/node/net/RPC.mli +++ b/src/node/net/RPC.mli @@ -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