Control.Concurrent.STM.TVar.WriteOnly
data
WriteOnlyTVar
a
toWriteOnlyTVar
writeTVar