Control.Concurrent.MVar.WriteOnly
data
WriteOnlyMVar
a
toWriteOnlyMVar