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

[Eva] Fixes the help message of option -eva-domains to include all domains.

Including the last registered domain.
parent 82208c6b
No related branches found
No related tags found
No related merge requests found
......@@ -159,9 +159,9 @@ let domains_list () =
(* Registers a new domain. Updates the help message of -eva-domains. *)
let register_domain ~name ~descr =
domains_ref := (name, descr) :: !domains_ref;
Cmdline.replace_option_help
Domains.option_name "eva" domains (domains_help ());
domains_ref := (name, descr) :: !domains_ref
Domains.option_name "eva" domains (domains_help ())
(* Checks that a domain has been registered. *)
let check_domain domain =
......
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