Await_capsule.Rwlocktype 'k t = 'k Await_sync.Rwlock.tmodule Create () : Module_with_rwlockLike create. Useful in module definitions, where GADTs cannot be unpacked.
val with_write :
'k 'a 'b. Await_kernel.Await.t @ local ->
('k t ->
(f:
('k Portable_kernel.Capsule.Access.t -> 'a @ portable contended) @ local once portable ->
'a @ portable contended) @ local) @ localval with_read :
'k 'a 'b. Await_kernel.Await.t @ local ->
('k t ->
(f:
('k Portable_kernel.Capsule.Access.t @ shared -> 'a @ portable contended) @ local once portable ->
'a @ portable contended) @ local) @ local