Control.Concurrent.STM.TMVar.Extras
forceSwapTMVar
waitTillEmptyTMVar
waitTillFullTMVar