Control.Concurrent.STM.TChan.WriteOnly
data
WriteOnlyTChan
a
toWriteOnlyTChan