小编fat*_*ata的帖子

我的问题似乎与这个密切相关 。

我的代码解析 yaml 文件，重新排列对象并写入一个新的 yaml 文件。它工作得很好，但有一个特别难看的部分。

我必须将我的数据结构声明为 的实例，FromJson如下ToJson所示：

instance FromJSON Users where
  parseJSON = genericParseJSON (defaultOptions { fieldLabelModifier = body_noprefix })
instance ToJSON Users where
  toJSON = genericToJSON (defaultOptions { fieldLabelModifier = body_noprefix })

问题是我必须对 8 个左右的其他情况重复此操作：

instance FromJSON Role where
  parseJSON = genericParseJSON (defaultOptions { fieldLabelModifier = body_noprefix })
instance ToJSON Role where
  toJSON = genericToJSON (defaultOptions { fieldLabelModifier = body_noprefix })

...
...

我不知道如何避免这种重复。是否有某种方法可以仅声明两个函数一次（例如在新类中）并让所有这些数据类型从中派生？

解决方案（另请参阅 dfeuer 接受的答案）：

我个人喜欢这个解决方案。你需要添加

{-# language DerivingVia …