let make_bool name default help =
make
~name
~parse:
(fun str ->
try
bool_of_string str
with Failure _ ->
raise
(Parse_error
(Printf.sprintf "%S is not a boolean (true or false)." str)))
~print:string_of_bool
~default
~help
~fcli:
(fun get set ->
[cli_name name,
Arg.Bool set,
"{true|false} "^help])
()