From bc7f4b48e28a5ff06f2103362abb8a3b11aec146 Mon Sep 17 00:00:00 2001
From: Vincent Bernardoff <vb@luminar.eu.org>
Date: Tue, 29 Nov 2016 16:41:17 +0100
Subject: [PATCH] RPC: launch: remove unused argument

---
 src/node/net/RPC.ml  | 6 +++---
 src/node/net/RPC.mli | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

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