Fields (docs.findlib-1.core.command.Command.Shape.Flag

val names : Base.string Base.list

val aliases : (t, Base.string Base.list) Fieldslib.Field.t

val doc : (t, Base.string) Fieldslib.Field.t

val name : (t, Base.string) Fieldslib.Field.t

val fold : 
  init:'acc__0 ->
  name:('acc__0 -> (t, Base.string) Fieldslib.Field.t -> 'acc__1) ->
  doc:('acc__1 -> (t, Base.string) Fieldslib.Field.t -> 'acc__2) ->
  aliases:('acc__2 -> (t, Base.string Base.list) Fieldslib.Field.t -> 'acc__3) ->
  'acc__3

val make_creator : 
  name:
    ((t, Base.string) Fieldslib.Field.t ->
      'acc__0 ->
      ('input__ -> Base.string) * 'acc__1) ->
  doc:
    ((t, Base.string) Fieldslib.Field.t ->
      'acc__1 ->
      ('input__ -> Base.string) * 'acc__2) ->
  aliases:
    ((t, Base.string Base.list) Fieldslib.Field.t ->
      'acc__2 ->
      ('input__ -> Base.string Base.list) * 'acc__3) ->
  'acc__0 ->
  ('input__ -> t) * 'acc__3

val create : 
  name:Base.string ->
  doc:Base.string ->
  aliases:Base.string Base.list ->
  t

val map : 
  name:((t, Base.string) Fieldslib.Field.t -> Base.string) ->
  doc:((t, Base.string) Fieldslib.Field.t -> Base.string) ->
  aliases:
    ((t, Base.string Base.list) Fieldslib.Field.t -> Base.string Base.list) ->
  t

val iter : 
  name:((t, Base.string) Fieldslib.Field.t -> Base.unit) ->
  doc:((t, Base.string) Fieldslib.Field.t -> Base.unit) ->
  aliases:((t, Base.string Base.list) Fieldslib.Field.t -> Base.unit) ->
  Base.unit

val for_all : 
  name:((t, Base.string) Fieldslib.Field.t -> Base.bool) ->
  doc:((t, Base.string) Fieldslib.Field.t -> Base.bool) ->
  aliases:((t, Base.string Base.list) Fieldslib.Field.t -> Base.bool) ->
  Base.bool

val exists : 
  name:((t, Base.string) Fieldslib.Field.t -> Base.bool) ->
  doc:((t, Base.string) Fieldslib.Field.t -> Base.bool) ->
  aliases:((t, Base.string Base.list) Fieldslib.Field.t -> Base.bool) ->
  Base.bool

val to_list : 
  name:((t, Base.string) Fieldslib.Field.t -> 'elem__) ->
  doc:((t, Base.string) Fieldslib.Field.t -> 'elem__) ->
  aliases:((t, Base.string Base.list) Fieldslib.Field.t -> 'elem__) ->
  'elem__ Base.list

val map_poly : 
  ([< `Read | `Set_and_create ], t, 'x0) Fieldslib.Field.user ->
  'x0 Base.list

module Direct : sig ... end