Control.Concurrent.MVar.WriteOnly
data
WriteOnlyMVar
a
toWriteOnlyMVar
putMVar
tryPutMVar