Control.Concurrent.STM.TMVar