在 Haskell 中使用花括号创建数据

我正在尝试创建一个 AST 并漂亮地打印它。我正在解析 C 语言的部分内容。但是，当我必须表示一个空语句时，这是

socket

我完全被卡住了，因为我无法简单地创建一个包含类似内容的新数据。或者当它是以下

NETLINK_ROUTE

相当于

{}

从技术上讲，我的问题是，我如何能够在 Haskell 中漂亮地打印花括号？所以当我收到

{{}}

我想要完全一样的漂亮打印，比如

SScope({})

那个。我会做的是这样的：

{}

与其他数据元素一样，但我无法做到这一点。对此有什么建议吗？

您需要区分语言的词法组件（花括号等）和用于表示句法结构的 Haskell 数据类型。

Haskell 方面应该有类似的东西

data Stmt = 
    CompoundStmnt [Stmt]
    | ValueStmt Identifier Expression
    |  -- And so on for all the other types of statement you want.

然后定义一个识别大括号的解析器，以及一个打印出大括号包围的值的漂亮打印机。