Update map.hs