type kind = | Normal |
| Everybody |
| Exec |
| Symlink |
| Gitlink |
val kind_to_perm : kind -> [ `Normal | `Dir | `Exec | `Everybody | `Link | `Commit ]val perm_of_kind : kind -> [ `Normal | `Dir | `Exec | `Everybody | `Link | `Commit ]val perm_to_kind : [ `Normal | `Exec | `Everybody | `Link | `Commit ] -> kindval kind_of_perm : [ `Normal | `Exec | `Everybody | `Link | `Commit ] -> kindtype time = {lsb32 : int32; |
nsec : int32; |
}type 'e flag = {assume : bool; |
extend : 'e option; |
stage : int; |
length : int; |
}type extend = {reserved : bool; |
skip_worktree : bool; |
intent_to_add : bool; |
}type info = {ctime : time; |
mtime : time; |
dev : int32; |
ino : int32; |
mode : kind; |
uid : int32; |
gid : int32; |
size : int32; |
}val pp_entry : entry Fmt.t