Question

我有一个像这样的aeson对象列表

[object ["key1" .= "value1"], object ["key2" .= "value2"]]

我希望将它们合并为像这样的单个aeson对象

object ["key1" .= "value1", "key2" .= "value2"]

在使用其他语言的JSON数据（合并操作）时，这是非常标准的，但我在Aeson库中看不到任何相似内容。

我只是遗漏了一些东西，可以用一些标准的haskell功能来完成吗？我尝试使用sequence，但似乎JSON Value不是monad所以我不能这样做。

我不需要处理深度合并或重复键，我只想生成类似

的内容

{
  "key1": value1,
  "key2": value2
}

这

[{ "key1": value1 }, { "key2": value2 }]

Answer 1

鉴于列表包含仅的JSON对象（因此具有键值对的元素或具有Object constructor的元素），您可以编写自己的：

import Data.Aeson(Value(Object))
import qualified Data.HashMap.Lazy as HML

merge_aeson :: [Value] -> Value
merge_aeson = Object . HML.unions . map (\(Object x) -> x)

如果我们用给定的样本输入测试上述函数，我们得到：

Prelude Data.Aeson HML> merge_aeson [object ["key1" .= "value1"], object ["key2" .= "value2"]] 
Object (fromList [("key2",String "value2"),("key1",String "value1")])

如何合并Aeson对象？

1 个答案: