时间戳

首页 > 解决方案 > Haskell Aeson 解析混合元素数组

json - Haskell Aeson 解析混合元素数组

问题描述

我有一个像这样的json：

{
  "name" : "Sam",
  "items": [ "sword", "shield", [] ]
}

和数据类型

data Adventurer = Adventurer {
  name :: String,
  items :: [String]
} deriving (Generic, Show, FromJSON, ToJSON)

问题是由于“items”字段在数组中有额外的[]，我得到“预期的字符串，遇到数组”。

我一直在尝试使用“items”数组元素的自定义数据类型来解决这个问题，或者尝试制作一个自定义解析器来忽略额外的数组。

有没有办法解析一个数组，只取特定类型的项目，丢弃其余的？

标签： jsonparsinghaskellaeson

解决方案

是的，例如，我们可以首先构造一个将Values（这些是 JSON 对象）映射到 s的函数Maybe String：

import Data.Aeson(Value(String))
import Data.Text(unpack)

getString :: Value -> Maybe String
getString (String t) = Just (unpack t)
getString _ = Nothing

FromJOSN然后我们可以定义for Adventurerlike的自定义实现：

{-# LANGUAGE OverloadedStrings #-}

import Data.Aeson(FromJSON(parseJSON), withObject, (.:))
import Data.Maybe(catMaybes)

instance FromJSON Adventurer where
    parseJSON = withObject "Adventurer" $ \v -> Adventurer
        <$> v .: "name"
        <*> fmap (catMaybes . map getString) (v .: "items")

然后产生例如：

Main> t = "{\n  \"name\" : \"Sam\",\n  \"items\": [ \"sword\", \"shield\", [] ]\n}"
Main> decode t :: Maybe Adventurer 
Just (Adventurer {name = "Sam", items = ["sword","shield"]})

推荐阅读