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不区分总和类型，如您的 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除了早期原型(prototype)之外的任何事情的实例。