val shell : (t, string) Fieldslib.Field.tval dir : (t, string) Fieldslib.Field.tval gecos : (t, string) Fieldslib.Field.tval gid : (t, int) Fieldslib.Field.tval uid : (t, int) Fieldslib.Field.tval passwd : (t, string) Fieldslib.Field.tval name : (t, string) Fieldslib.Field.tval fold : init:'acc__0 -> name:('acc__0 -> (t, string) Fieldslib.Field.t -> 'acc__1) -> passwd:('acc__1 -> (t, string) Fieldslib.Field.t -> 'acc__2) -> uid:('acc__2 -> (t, int) Fieldslib.Field.t -> 'acc__3) -> gid:('acc__3 -> (t, int) Fieldslib.Field.t -> 'acc__4) -> gecos:('acc__4 -> (t, string) Fieldslib.Field.t -> 'acc__5) -> dir:('acc__5 -> (t, string) Fieldslib.Field.t -> 'acc__6) -> shell:('acc__6 -> (t, string) Fieldslib.Field.t -> 'acc__7) -> 'acc__7val make_creator : name:((t, string) Fieldslib.Field.t -> 'acc__0 -> ('input__ -> string) * 'acc__1) -> passwd:((t, string) Fieldslib.Field.t -> 'acc__1 -> ('input__ -> string) * 'acc__2) -> uid:((t, int) Fieldslib.Field.t -> 'acc__2 -> ('input__ -> int) * 'acc__3) -> gid:((t, int) Fieldslib.Field.t -> 'acc__3 -> ('input__ -> int) * 'acc__4) -> gecos:((t, string) Fieldslib.Field.t -> 'acc__4 -> ('input__ -> string) * 'acc__5) -> dir:((t, string) Fieldslib.Field.t -> 'acc__5 -> ('input__ -> string) * 'acc__6) -> shell:((t, string) Fieldslib.Field.t -> 'acc__6 -> ('input__ -> string) * 'acc__7) -> 'acc__0 -> ('input__ -> t) * 'acc__7val create : name:string -> passwd:string -> uid:int -> gid:int -> gecos:string -> dir:string -> shell:string -> tval map : name:((t, string) Fieldslib.Field.t -> string) -> passwd:((t, string) Fieldslib.Field.t -> string) -> uid:((t, int) Fieldslib.Field.t -> int) -> gid:((t, int) Fieldslib.Field.t -> int) -> gecos:((t, string) Fieldslib.Field.t -> string) -> dir:((t, string) Fieldslib.Field.t -> string) -> shell:((t, string) Fieldslib.Field.t -> string) -> tval iter : name:((t, string) Fieldslib.Field.t -> unit) -> passwd:((t, string) Fieldslib.Field.t -> unit) -> uid:((t, int) Fieldslib.Field.t -> unit) -> gid:((t, int) Fieldslib.Field.t -> unit) -> gecos:((t, string) Fieldslib.Field.t -> unit) -> dir:((t, string) Fieldslib.Field.t -> unit) -> shell:((t, string) Fieldslib.Field.t -> unit) -> unitval for_all : name:((t, string) Fieldslib.Field.t -> bool) -> passwd:((t, string) Fieldslib.Field.t -> bool) -> uid:((t, int) Fieldslib.Field.t -> bool) -> gid:((t, int) Fieldslib.Field.t -> bool) -> gecos:((t, string) Fieldslib.Field.t -> bool) -> dir:((t, string) Fieldslib.Field.t -> bool) -> shell:((t, string) Fieldslib.Field.t -> bool) -> boolval exists : name:((t, string) Fieldslib.Field.t -> bool) -> passwd:((t, string) Fieldslib.Field.t -> bool) -> uid:((t, int) Fieldslib.Field.t -> bool) -> gid:((t, int) Fieldslib.Field.t -> bool) -> gecos:((t, string) Fieldslib.Field.t -> bool) -> dir:((t, string) Fieldslib.Field.t -> bool) -> shell:((t, string) Fieldslib.Field.t -> bool) -> boolval to_list : name:((t, string) Fieldslib.Field.t -> 'elem__) -> passwd:((t, string) Fieldslib.Field.t -> 'elem__) -> uid:((t, int) Fieldslib.Field.t -> 'elem__) -> gid:((t, int) Fieldslib.Field.t -> 'elem__) -> gecos:((t, string) Fieldslib.Field.t -> 'elem__) -> dir:((t, string) Fieldslib.Field.t -> 'elem__) -> shell:((t, string) Fieldslib.Field.t -> 'elem__) -> 'elem__ listval map_poly : ([< `Read | `Set_and_create ], t, 'x0) Fieldslib.Field.user -> 'x0 listmodule Direct : sig ... end