package qcow
val make : unit -> t
Create a set of locks
val unlock : lock -> unit
unlock lock
releases the lock. Note releasing the same lock more than once will trigger a runtime failure.
module Client : sig ... end
module Read : sig ... end
Non-exclusive read locks
module Write : sig ... end
Exclusive write locks
val with_metadata_lock : t -> (unit -> 'a Lwt.t) -> 'a Lwt.t
with_metadata_lock t f
executes f ()
with the global metadata lock held. This prevents metadata blocks from moving while they're being used.
module Debug : sig ... end
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>