json - Data.Aeson 编码可选键

Question

我有以下问题，我有一个带有可选键的 JSON 格式，我需要从我的 haskell 代码生成。

让我们举个例子

{-# LANGUAGE DeriveGeneric #-}

import GHC.Generics
import Data.Aeson

data Person = {
    name :: String,
    shoeSize :: Maybe Int,
    favoriteColor :: Maybe String,
    favoriteFood :: Maybe StringC
} deriving (show, eq, generic)

instance ToJSON Person -- Generic instance

现在，如果我尝试对没有鞋码的 Person 进行编码，我仍然会将键“shoeSize”设置为 null，Aeson 在编码中使键可选的方法是什么

编辑，编码示例

encode $ Person "windwarrior" Nothing "green" Nothing

应该导致

{"name":"windwarrior", "favoriteColor":"green"}

Answer 1

使用 TemplateHaskell导出 ToJSON实例而不是 Generic . TH 函数可选地采用 Options 其中有 omitNothingFields选项。