FromJSON / ToJSON 当某些字段需要手动解析时

Question

我有一个数据：

data MyData = MyData { a :: String, b :: Integer, c :: Bool } 
                      deriving (Generic)

instance FromJSON MyData
instance ToJSON MyData

事实上，我在MyData 中还有很多字段。

我想手动解析 1 或 2 个字段，因为在 MyData 中它们的调用方式与真正的 JSON 对象中的略有不同，但仍然可以使用 FromJSON 和 ToJSON 或类似的东西。可能吗？还是在这种情况下我应该手动解析所有字段而不使用FromJSON / ToJSON？

Answer 1

你会想看看模板 Haskell deriving abilities of aeson。那里有一个选项可以帮助您重命名字段。例如，假设我想在下面的声明中将color 字段重命名为colour：

data MyData = MyData { address :: String
                     , streetNumber :: Integer
                     , isApartment :: Bool
                     , color :: String
                     }

然后，我没有派生Generic，而是添加以下内容

{-# LANGUAGE TemplateHaskell #-}
import Data.Aeson.TH

data MyData = MyData { address :: String
                     , streetNumber :: Integer
                     , isApartment :: Bool
                     , color :: String
                     }

$(deriveJSON defaultOptions{
    constructorTagModifier = \f -> if f == "color" then "colour" else f 
  } ''MyData)

然后我的ToJSON 和FromJSON 实例具有适当命名的字段。