使用aeson的形式键 - 值对的值

Question

我很难以形式解析JSON文本，

{
"Person1": {
"name": "John Doe",
"job" : "Accountant",
"id": 123
},
"Person2": {
"name": "Jane Doe",
"job" : "Secretary",
"id": 321
}}

如下所示，我定义了新的数据类型

data Person = Person
{ name :: String
, job  :: String
, id   :: Int } deriving Show

，但是在这种情况下，在定义fromjson的实例上遇到了麻烦。

现在，如果JSON文本是

{
 "People": [
    {
    "name": "John Doe",
    "job": "Accountant",
    "id": 123
    },
    {
    "name": "Jane Doe",
    "job": "Secretary",
    "id": 321
    }]
}

我可以写

instance FromJSON person where
    parseJSON = withObject "Person" $ \obj -> Person
    <$> obj .: "name"
    <*> obj .: "job"
    <*> obj .: "id"

的，但我不知道如何将此模式转换为其他格式。

Answer 1

JSON字典，例如{“ foo”：“ bar”}可以将其解码为诸如map从“容器”软件包或hashmap中解码。来自无序的容器。一旦您拥有fromjson实例的人，只需使用aeson.decode获取MAP TEXT PERTENS。如果您想获得[Person]，则可以进一步使用data.map.elems。

例如：

#!/usr/bin/env cabal
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
{- cabal:
build-depends: base, aeson, bytestring, containers
-}

import GHC.Generics
import qualified Data.Aeson as Aeson
import Data.Map (Map)
import Data.Maybe (fromMaybe)
import qualified Data.ByteString.Lazy.Char8 as BS

data Person = Person 
        { name :: String
        , job  :: String
        , id   :: Int
        } deriving (Show, Generic, Aeson.ToJSON, Aeson.FromJSON)

main :: IO ()
main = print . decodePersons . BS.pack =<< getContents

decodePersons :: BS.ByteString -> Map String Person
decodePersons = fromMaybe (error "fail") . Aeson.decode

有趣的一点是aeson.decode正在返回类型map String Person。一切都在那里进行完整的演示。

您可以使用输入进行测试：

% ./so.hs <<EOF
{
"Person1": {
"name": "John Doe",
"job" : "Accountant",
"id": 123
},
"Person2": {
"name": "Jane Doe",
"job" : "Secretary",
"id": 321
}}
EOF

要查看以下输出：

fromList [("Person1",Person {name = "John Doe", job = "Accountant", id = 123}),("Person2",Person {name = "Jane Doe", job = "Secretary", id = 321})]

如果要删除person1和Person2标签，则只需使用data获取地图的元素.map.elems。