我正在尝试用 aeson 解析以下 JSON。
{
"data": [
{
"id": "34",
"type": "link",
"story": "foo"
},
{
"id": "35",
"type": "link",
"story": "bar"
}
]
}
由于有很多我想忽略的字段,因此似乎 I should use GHC generics .但是如何编写使用 Haskell 关键字的数据类型定义,如
data
和 type
?以下当然给出:parse error on input `data'
data Feed = Feed {data :: [Post]}
deriving (Show, Generic)
data Post = Post {
id :: String,
type :: String,
story :: String
}
deriving (Show, Generic)
最佳答案
你可以自己写FromJSON
和 ToJSON
不依赖 GHC.Generics 的实例。这也意味着您可以为数据表示和 JSON 表示使用不同的字段名称。
Post 的示例实例:
{-# LANGUAGE OverloadedStrings #-}
import Control.Applicative
import Data.Aeson
import qualified Data.ByteString.Lazy as LBS
data Post = Post {
postId :: String,
typ :: String,
story :: String
}
deriving (Show)
instance FromJSON Post where
parseJSON (Object x) = Post <$> x .: "id" <*> x.: "type" <*> x .: "story"
parseJSON _ = fail "Expected an Object"
instance ToJSON Post where
toJSON post = object
[ "id" .= postId post
, "type" .= typ post
, "story" .= story post
]
main :: IO ()
main = do
print $ (decode $ Post "{\"type\": \"myType\", \"story\": \"Really interresting story\", \"id\" : \"SomeId\"}" :: Maybe Post)
LBS.putStrLn $ encode $ Post "myId" "myType" "Some other story"
对于 Feed 也可以这样做。如果您不必忽略字段,也可以使用
deriveJSON
来自 Data.Aeson.TH
,它接受一个函数来修改字段名称作为它的第一个参数。
关于haskell - 使用包含保留关键字的字段名解析 JSON,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18410686/