sig
type bytes = private Core.Std.Int63.t
type inodes = private Core.Std.Int63.t
val bytes : Core.Std.Int63.t -> Extended_unix.Quota.bytes
val inodes : Core.Std.Int63.t -> Extended_unix.Quota.inodes
type 'units limit = {
soft : 'units option;
hard : 'units option;
grace : Core.Std.Time.t option;
}
type 'units usage = private 'units
val query :
[ `Group | `User ] ->
id:int ->
path:string ->
(Extended_unix.Quota.bytes Extended_unix.Quota.limit *
Extended_unix.Quota.bytes Extended_unix.Quota.usage *
Extended_unix.Quota.inodes Extended_unix.Quota.limit *
Extended_unix.Quota.inodes Extended_unix.Quota.usage)
Core.Std.Or_error.t
val set :
[ `Group | `User ] ->
id:int ->
path:string ->
Extended_unix.Quota.bytes Extended_unix.Quota.limit ->
Extended_unix.Quota.inodes Extended_unix.Quota.limit ->
unit Core.Std.Or_error.t
val bytes_of_sexp : Sexplib.Sexp.t -> Extended_unix.Quota.bytes
val sexp_of_bytes : Extended_unix.Quota.bytes -> Sexplib.Sexp.t
val inodes_of_sexp : Sexplib.Sexp.t -> Extended_unix.Quota.inodes
val sexp_of_inodes : Extended_unix.Quota.inodes -> Sexplib.Sexp.t
val limit_of_sexp :
(Sexplib.Sexp.t -> 'units) ->
Sexplib.Sexp.t -> 'units Extended_unix.Quota.limit
val sexp_of_limit :
('units -> Sexplib.Sexp.t) ->
'units Extended_unix.Quota.limit -> Sexplib.Sexp.t
end