Update Applicaty.hs