add EventList.hs