RPC: fixes some comments.

This commit is contained in:
Benjamin Canou 2016-12-14 16:40:42 +01:00
parent 8264ec111a
commit 8360b4e407
2 changed files with 3 additions and 3 deletions

View File

@ -53,7 +53,7 @@ let make_cors_headers ?(headers=Cohttp.Header.init ())
Cohttp.Header.add_multi cors_headers Cohttp.Header.add_multi cors_headers
"Access-Control-Allow-Origin" [allowed_origin] "Access-Control-Allow-Origin" [allowed_origin]
(* Promise a running RPC server. Takes the port. *) (* Promise a running RPC server. *)
let launch ?pre_hook ?post_hook ?(host="::") mode root cors_allowed_origins cors_allowed_headers = let launch ?pre_hook ?post_hook ?(host="::") mode root cors_allowed_origins cors_allowed_headers =
(* launch the worker *) (* launch the worker *)
let cancelation, canceler, _ = Lwt_utils.canceler () in let cancelation, canceler, _ = Lwt_utils.canceler () in

View File

@ -12,7 +12,7 @@
(** A handle on the server worker. *) (** A handle on the server worker. *)
type server type server
(** Promise a running RPC serve. To call a RPC at /p/a/t/h/ in the (** Promise a running RPC server. To call an RPC at /p/a/t/h/ in the
provided service, one must call the URI /call/p/a/t/h/. Calling 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 /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 any. Calling /schema/p/a/t/h/ will describe the input and output
@ -45,7 +45,7 @@ val launch :
string list -> string list ->
server Lwt.t server Lwt.t
(** Kill a RPC server. *) (** Kill an RPC server. *)
val shutdown : server -> unit Lwt.t val shutdown : server -> unit Lwt.t
(** Retrieve the root service of the server. *) (** Retrieve the root service of the server. *)