sig
module Type :
sig
type 'a t
val create : (string -> 'a) -> 'a Command.Flag.Type.t
val bool : bool Command.Flag.Type.t
val int : int Command.Flag.Type.t
val float : float Command.Flag.Type.t
end
module Action :
sig
type 'a t
val noarg : ('a -> unit) -> 'a Command.Flag.Action.t
val arg : ('a -> string -> unit) -> 'a Command.Flag.Action.t
val rest : ('a -> string list -> unit) -> 'a Command.Flag.Action.t
val of_type :
'a Command.Flag.Type.t ->
('b -> 'a -> unit) -> 'b Command.Flag.Action.t
end
type 'a t = {
name : string;
spec : 'a Command.Flag.Action.t;
doc : string;
}
end