Control.Concurrent.QSem
Simple Quantity Semaphores
data
QSem
newQSem
waitQSem
signalQSem