sig
type 'a setter = No_arg of 'a | Arg of (string -> 'a)
type ('a, 'flag) t
val flag : ('a, 'flag) Deprecated_command.Flags_ext.t -> 'flag
val get : ('a, 'b) Deprecated_command.Flags_ext.t -> 'a
val is_set : ('a, 'b) Deprecated_command.Flags_ext.t -> bool
val create_optional :
name:string ->
doc:string ->
'a Deprecated_command.Flags_ext.setter ->
('a option, unit Deprecated_command.Flag.t)
Deprecated_command.Flags_ext.t
val create :
?default:'a * ('a -> string) ->
name:string ->
doc:string ->
'a Deprecated_command.Flags_ext.setter ->
('a, unit Deprecated_command.Flag.t) Deprecated_command.Flags_ext.t
val create_many :
?at_least_one:bool ->
name:string ->
doc:string ->
'a Deprecated_command.Flags_ext.setter ->
('a list, unit Deprecated_command.Flag.t) Deprecated_command.Flags_ext.t
val create_choice :
?default:'a * ('a -> string) ->
(string * string * 'a Deprecated_command.Flags_ext.setter) list ->
('a, unit Deprecated_command.Flag.t list) Deprecated_command.Flags_ext.t
val create_choice_optional :
(string * string * 'a Deprecated_command.Flags_ext.setter) list ->
('a option, unit Deprecated_command.Flag.t list)
Deprecated_command.Flags_ext.t
val create_set :
name:string ->
doc:string ->
(bool, unit Deprecated_command.Flag.t) Deprecated_command.Flags_ext.t
val create_rest :
?name:string ->
doc:string ->
unit ->
(string list option, unit Deprecated_command.Flag.t)
Deprecated_command.Flags_ext.t
end