Control.Concurrent.STM.TMVar.ReadOnly
data
ReadOnlyTMVar
b
toReadOnlyTMVar