Module Core_extended.Extended_unix.Quota

type bytes = private Core.Int63.t

include sig ... end

val bytes_of_sexp : Sexplib.Sexp.t ‑> bytes

val sexp_of_bytes : bytes ‑> Sexplib.Sexp.t

type inodes = private Core.Int63.t

include sig ... end

val inodes_of_sexp : Sexplib.Sexp.t ‑> inodes

val sexp_of_inodes : inodes ‑> Sexplib.Sexp.t

val bytes : Core.Int63.t ‑> bytes

val inodes : Core.Int63.t ‑> inodes

type 'units limit = {

soft : 'units option;

hard : 'units option;

grace : Core.Time.t option;

}

include sig ... end

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.Or_error.t

val set : [ `User | `Group ] ‑> id:int ‑> path:string ‑> bytes limit ‑> inodes limit ‑> unit Core.Or_error.t