From 80e1b0f3125d32a3a48b8c456d35dcd0c8d70cca Mon Sep 17 00:00:00 2001 From: Guillem Rieu Date: Tue, 22 Nov 2016 17:24:52 +0100 Subject: [PATCH] Client: add Cli_entries.warning to log a message on stderr without raising exception --- src/utils/cli_entries.ml | 5 +++++ src/utils/cli_entries.mli | 1 + 2 files changed, 6 insertions(+) diff --git a/src/utils/cli_entries.ml b/src/utils/cli_entries.ml index c7071af56..9cca0bd66 100644 --- a/src/utils/cli_entries.ml +++ b/src/utils/cli_entries.ml @@ -361,6 +361,11 @@ let error fmt= Lwt.fail (Failure msg)) fmt +let warning fmt = + Format.kasprintf + (fun msg -> log "stderr" msg) + fmt + let message fmt = Format.kasprintf (fun msg -> log "stdout" msg) diff --git a/src/utils/cli_entries.mli b/src/utils/cli_entries.mli index 209289a3b..1b431e0c8 100644 --- a/src/utils/cli_entries.mli +++ b/src/utils/cli_entries.mli @@ -68,6 +68,7 @@ val dispatch: val log_hook : (string -> string -> unit Lwt.t) option ref val error : ('a, Format.formatter, unit, 'b Lwt.t) format4 -> 'a +val warning : ('a, Format.formatter, unit, unit Lwt.t) format4 -> 'a val message : ('a, Format.formatter, unit, unit Lwt.t) format4 -> 'a val answer : ('a, Format.formatter, unit, unit Lwt.t) format4 -> 'a val log : string -> ('a, Format.formatter, unit, unit Lwt.t) format4 -> 'a