Update Data.hs