conc055: Control.Concurrent.STM.atomically was nested