Control.Concurrent.STM.TMVar.WriteOnly
data WriteOnlyTMVar a
toWriteOnlyTMVar
putTMVar
tryPutTMVar
isEmptyWriteOnlyTMVar