Update Object.hs