Up

Module Quota

Signature

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