Update eintourname.hs