let make_int name default help =
make
~name
~parse:
(fun str ->
try
int_of_string str
with Failure _ ->
raise
(Parse_error
(Printf.sprintf "%S is not an integer." str)))
~print:string_of_int
~default
~help
~fcli:
(fun get set ->
[cli_name name,
Arg.Int set,
"i "^help])
()