haskell - Aeson 的 derivedJSON 不能按预期对枚举工作

Question

我通常编写自己的ToJSON实例FromJSON，但我决定使用deriveJSON类型，因为它非常简单：

data Priority = HIGH | MEDIUM | LOW deriving Show
$(deriveToJSON id ''Priority)

main = BS.putStrLn . encode $ HIGH

我本来希望JSON推导只是将枚举写为字符串。相反，它是哈希的关键！{"HIGH":[]}

为什么这是默认行为？

Answer 1

这是因为aeson不区分像您这样的 sum 类型Priority和像data PriorityAndDetails = HIGH { highReason :: Text, alertType :: Alert } | MEDIUM { personResponsible :: Person } | LOW. 从根本上说，这些类型中的每一个都是“只是一个带有n 个参数的数据构造函数”。

在Priority HIGH、MED和LOW中，每个都只是具有零参数的数据构造函数。在PriorityAndDetails HIGH、MED和LOW中，每个都只是具有一定数量的命名参数的数据构造函数，分别为 2、1 和 0。

一般来说，我发现除了早期原型设计之外，您可能需要创建自己的实例ToJSON和实例。FromJSON