惯用的意思是重写Haskell JSON创建库

Question

我不想问这个问题时不礼貌。但是，我最近一直在尝试学习Haskell，并希望了解该语言的最佳实践。我目前正在阅读有关解析haskell文件的库，并作为JSON文档排除解析树。 main.hs并尝试为解析树的每个元素得出JSON生产商。撰写Haskell程序时，人们通常会使用代码生成器吗？我认为计算机创建的代码会破坏功能编程的优雅，还是我错了？是否有任何简化以下代码的惯用方法？

// ~80 lines of the same statements have been elided
instance ToJSON l => ToJSON (FunDep l) where
    toJSON (FunDep l n1 n2)
        = object [pack "FunDep" .= [toJSON l, toJSON n1, toJSON n2]]

instance ToJSON l => ToJSON (GadtDecl l) where
    toJSON (GadtDecl l n1 t2)
        = object [pack "GadtDecl" .= [toJSON l, toJSON n1, toJSON t2]]

instance ToJSON l => ToJSON (FieldDecl l) where
    toJSON (FieldDecl l n1 b2)
        = object [pack "FieldDecl" .= [toJSON l, toJSON n1, toJSON b2]]

鉴于所有功能都具有相似的签名，难道无法创建一个函数构建器，该函数构建器返回parse树每个元素的必要参数？或者，一个人至少可以将必要的信息存储在CSV文件中并在运行时检索它吗？

我对继续进行Haskell研究的持续非常热情，并且不想挑选任何特定的存储库。

Answer 1

生成代码是正常的，惯用的，并且在您指向的文件中使用。如果您滚动几行，您会看到：

-- FIXME: Waiting for https://github.com/bos/aeson/issues/206.
{-
-- ~15 lines of the same statements have been elided
$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''FunDep)
$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''GadtDecl)
$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''FieldDecl)
-}

这些行是在将来的某个时候扩展到您显示的线条；有关为什么它们当前不存在的更多信息，请参见链接的问题。

（顺便说一句：没有什么可以阻止某人创建derivetojsons或以类型名称而不是单个类型名称的收集的东西。他们可能应该这样做，以便他们可以写作

deriveToJSONs defaultOptions { sumEncoding = ObjectWithSingleField }
    [''FunDep, ''GadtDecl, ''FieldDecl]

并只有一个列出了约50个元素，而不是派生的50行。