Update polygon.hs