Control.Concurrent.STM.TMVar.Extras

forceSwapTMVar

waitTillEmptyTMVar

waitTillFullTMVar