如何在haskell中定义多边形

我正在尝试转换形状

data shape = Polygon [Point]

以图片的形式，我已经试过了

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

我在这里遇到了一个问题

---

如果我想在运行此函数时输入任意数量的多边形顶点，我应该在xxxxxx中写些什么。

[1/2]（1）在您的问题中，请（a）在发布后阅读这些问题，以查看您在编写时是否漏掉了任何明显的错误；（b） 按原样粘贴代码和错误消息，而不是按内存键入（我发现您的代码和您告诉我们的问题之间至少有三处不一致）；（c） 将错误消息格式化为代码（与此处倒数第二行不同）；（d） 不要将常规文本格式化为代码（不像这里的最后一行）。一个好的开始是解决这些问题。[2/2]（2）这里不应该使用[haskell stack]和[template haskell]标记。如果您阅读了标签描述，或者注意到之前的问题中删除了相同的标签，您就会知道这一点。（3） “我能做些什么来修复这个错误”--这似乎包含在本文中，可能还有其他几个问题，您可能会通过搜索找到。（4） “如何定义多边形？”——我不知道；您的问题中没有足够的上下文。首先，您如何知道必须定义它？在不知道如何制作

图片的情况下，您的意思可能是这样的：
shapeToPicture（Polygon xs）=let path=strokePath xs中的makePath xs