如何在haskell中定义多边形

Question

我正在尝试转换形状

data shape = Polygon [Point]

到图片表格，我已经试过了..

shapeToPicture :: shape -> Picture
shapeToPicture  (Polygon _xxxxxxx_ ) = polygon 

我在这里遇到了一个问题 如果我想在运行此函数时输入多边形的任意数量的顶点，我应该在 xxxxxx 中写什么。