type block = [
| `S of string
| `P of string
| `Pre of string
| `I of string * string
| `Noblank
| `Blocks of block list
]
type env = {
env_docs : string option;
env_doc : string option;
env_var : string;
}
type info = {
arg_docs : string option;
arg_docv : string option;
arg_env : env option;
arg_version : string option;
arg_doc : string;
}
module Arg : sig ... end
type arg_list = (string list * Arg.spec * info) list
type sub = {
sub_name : string;
sub_action : unit -> unit;
sub_args : arg_list;
sub_man : block list;
sub_version : string option;
sub_doc : string;
}
type command = {
cmd_name : string;
cmd_action : unit -> unit;
cmd_args : arg_list;
cmd_man : Cmdliner.Manpage.block list;
cmd_doc : string;
}