Fixed geom.hs