Update Geometry.hs