sig
  type 'a t
  val noarg : ('-> unit) -> 'Command.Flag.Action.t
  val arg : ('-> string -> unit) -> 'Command.Flag.Action.t
  val rest : ('-> string list -> unit) -> 'Command.Flag.Action.t
  val of_type :
    'Command.Flag.Type.t -> ('-> '-> unit) -> 'Command.Flag.Action.t
end