type t
type request
=
|
Request of
{
np : int;
mem : int;
}
type resource
Resource of
val create : np:int ‑> mem:int ‑> t
val request : t ‑> request ‑> (resource, [ `Msg of string ]) Pervasives.result Lwt.t
val release : t ‑> resource ‑> unit