balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tezos_node: add -verbosity

Browse Source
This commit is contained in:
Vincent Bernardoff 2016-11-07 16:00:08 +01:00 committed by Grégoire Henry
parent f2e581c168
commit b869c264aa
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/node_main.ml
View File

@ -101,6 +101,10 @@ module Globals = struct
| Some dir -> base_dir#set dir in | Some dir -> base_dir#set dir in
sandbox#add_hook sandboxed sandbox#add_hook sandboxed
let verbose_param =
new string_option_cp ~group:cli_group ["verbosity"] ~short_name:"v" (Some "notice")
"Verbosity level (fatal, error, warning, notice, info, debug)"
(** File options *) (** File options *)
let file_group = new group let file_group = new group
@ -220,6 +224,17 @@ end
let init_logger () = let init_logger () =
let open Logging in let open Logging in
begin
let open Lwt_log_core in
match Globals.verbose_param#get with
| Some "fatal" -> add_rule "*" Fatal
| Some "error" -> add_rule "*" Error
| Some "warning" -> add_rule "*" Warning
| Some "notice" -> add_rule "*" Notice
| Some "info" -> add_rule "*" Info
| Some "debug" -> add_rule "*" Debug
| _ -> ()
end;
match Globals.log_kind#get with match Globals.log_kind#get with
| "" | "stderr" -> Logging.init Stderr | "" | "stderr" -> Logging.init Stderr
| "stdout" -> Logging.init Stdout | "stdout" -> Logging.init Stdout