Moved ppEvent' to Events.hs