高效的Aeson解析和类型toEncoding

Question

我正在将第三方JSON结构解析为我自己的一组类型。我想以最有效的方式解析（我正在解析通过Network.Socket通过unix套接字发送的数据）

Aeson的文档声称使用toEncoding进行解析比toJSON产生高达3倍的加速，但是我不知道如何使用toEncoding为我的简单求和类型编写有效的实例。

例如：

data NodeLayout =
    SplitHorizontalLayout
    | SplitVerticalLayout
    | StackedLayout
    | TabbedLayout
    | DockAreaLayout
    | OutputLayout
    deriving (Eq, Generic)

instance ToJSON NodeLayout where
    toJSON = \case
        SplitHorizontalLayout -> "splith"
        SplitVerticalLayout   -> "splitv"
        StackedLayout         -> "stacked"
        TabbedLayout          -> "tabbed"
        DockAreaLayout        -> "dockarea"
        OutputLayout          -> "output"

instance FromJSON NodeLayout where
    parseJSON (String s) = pure $ case s of
        "splith"   -> SplitHorizontalLayout
        "splitv"   -> SplitVerticalLayout
        "stacked"  -> StackedLayout
        "tabbed"   -> TabbedLayout
        "dockarea" -> DockAreaLayout
        "output"   -> OutputLayout
        _          -> error "Received unrecognized NodeLayout"
    parseJSON _ = error "Error parsing NodeLayout"

我有其他数据类型将接收这个的Vector，但有时我会收到一个需要单独解析的值。如何使用toEncoding有效地将字符串解析为和类型？

Answer 1

据我所知，Aeson没有为fromJSON提供解析/解码的替代方案。文档解释了toEncoding允许更有效的编码/序列化 - 从Haskell内存表示到有线格式。从你的问题不清楚你需要快速的方向。

您可以按照toEncoding的模式提供明确的toJSON。 Data.Aeson.Encoding提供了一堆辅助函数来编写这些函数：

    toEncoding = \case
        SplitHorizontalLayout -> text "splith"
        SplitVerticalLayout   -> text "splitv"
        StackedLayout         -> text "stacked"
        TabbedLayout          -> text "tabbed"
        DockAreaLayout        -> text "dockarea"
        OutputLayout          -> text "output"