Module Blocking.Semaphore

val wait : (Types.Semaphore.t Ctypes_static.ptr -> unit F.return) F.result