Add GHC.Conc.Sync.atomicallyWithIO