我有一个像这样的 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 }]
最佳答案
鉴于列表仅包含 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")])
关于json - 如何合并 Aeson 对象?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/44408359/