Update Events.hs