Transactions should be their own wrapper, around Effect. Tentative: `newtype InTransaction t = InT (Effect t)`