具有自定义键类型的Data.Map.Strict.Map的Aeson编码导致数组而不是对象的数组

时间:2019-03-09 16:13:57

标签: json haskell aeson

使用自定义类型作为键时,我很难让Aeson吐出对象。让我演示一下:

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}

import Data.Aeson

import qualified Data.Map.Strict as M
import qualified Data.ByteString.Lazy.Char8 as B

import GHC.Generics

data LOL = A | B | C deriving (Eq, Ord, Generic, ToJSONKey, ToJSON)
main = do
    B.putStrLn $ encode $ M.fromList [(A,"b")]
    B.putStrLn $ encode $ M.fromList [("A","b")]

在一种情况下,我得到了一个数组数组,而在另一种情况下,它是一个常规对象:

$ ./tojsonkey 
[["A","b"]]
{"A":"b"}

有什么想法吗?

1 个答案:

答案 0 :(得分:1)

看看the docs for ToJSONKey。基本上,toJSONKey :: ToJSONKeyFunction a方法处理两种情况:

  1. 何时可以将键直接转换为类似文本的内容
  2. 当您能做的最好的事情就是将密钥转换为一些通用的JSON

对于其中的第一个,aeson将使用适当的JSON对象。对于后者,它退回到嵌套数组。

那您为什么要选择第二种选择呢?因为您派生ToJSONKey,并且默认实现选择第二个更通用的选项。您可以通过手动实现ToJSONKey LOL来解决此问题:

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}

import Data.Aeson
import Data.Aeson.Types

import qualified Data.Text as T
import qualified Data.Map.Strict as M
import qualified Data.ByteString.Lazy.Char8 as B

import GHC.Generics

data LOL = A | B | C deriving (Eq, Ord, Show, Generic, ToJSON)
instance ToJSONKey LOL where
  toJSONKey = toJSONKeyText (T.pack . show)

main = do
    B.putStrLn $ encode $ M.fromList [(A,"b")]
    B.putStrLn $ encode $ M.fromList [("A","b")]

那应该给你

$ ./tojsonkey 
{"A":"b"}
{"A":"b"}