Skip to content
Snippets Groups Projects
Commit fda985af authored by David Bühler's avatar David Bühler
Browse files

[Eva] Fixes the output of "-eva-domains help" for domains without description.

parent eea8019d
No related branches found
No related tags found
No related merge requests found
......@@ -182,8 +182,9 @@ let domains_list () =
(fun fmt -> Format.pp_print_text fmt descr)
in
feedback ~level:0
"List of available domains:@. %a@."
(Pretty_utils.pp_list ~sep:"@," pp_dom) (List.rev !domains_ref);
"List of available domains:@,%a"
(Pretty_utils.pp_list ~pre:"@[<v>" ~sep:"@," ~suf:"@]" pp_dom)
(List.rev !domains_ref);
raise Cmdline.Exit
(* Registers a new domain. Updates the help message of -eva-domains. *)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment