Haskell Aeson 중첩 배열 JSON

Question

다음 JSON 구조에서 태그를 구문 분석하는 데 문제가 있습니다. 파서는 내가 그것을 tags :: !Array이라고 선언 할 때만 작동합니다. 내가 선언 할 때 파서는 실패합니다. tags :: [Tag]

왜요?

{ 
    "response": { 
    "status": "ok", 
    "results": [ 
     { 
     "type": "article", 
     "fields": { 
      "wordcount": "497" 
     }, 
     "tags": [ 
      { 
      "id": "profile/barryglendenning" 
      } 
     ] 
     } 
    ] 
    } 
} 



data Field = Field{ 
    wordcount :: Int 
} deriving (Show) 

instance FromJSON Field where 
    parseJSON (Object o) = Field <$> (o .: "wordcount") 
    parseJSON _ = mzero 


data Tag = Tag{ 
    id :: Text 
} deriving (Show) 

instance FromJSON Tag where 
    parseJSON (Object o) = Tag <$> (o .: "id") 
    parseJSON _ = mzero 

data SearchResult = SearchResult { 
    type:: Text, 
    field :: Field, 
    tags :: !Array 
} deriving (Show) 

instance FromJSON SearchResult where 
    parseJSON (Object o) = do 
     let t1 = o .: "type" 
     let t2 = o .: "fields" 
     let t3 = o .: "tags" 
     SearchResult <$> t1 <*> t2 <*> t3 
    parseJSON _ = mzero 


data ContentrResult = ContentrResult { 
    results :: [SearchResult], 
    status :: Text 
} deriving (Show) 

instance FromJSON ContentrResult where 
    parseJSON (Object o) = do 
     r <- o .: "response" 
     ContentrResult <$> r .: "results" 
         <*> r .: "status" 
    parseJSON _ = mzero 

Answer 1

Nothing은 디버깅에 유용하지 않습니까?

tags을 구문 분석하여 JSON 예제를 [Tag]으로 가져올 수있었습니다. 귀하의 오류가 wordcount 필드와 관련되어 있을지 궁금합니다 (Number이 아닌 JSON의 String 필드).

{-# LANGUAGE OverloadedStrings #-} 
{-# LANGUAGE QuasiQuotes #-} 

module Main where 

import Lib (str) 

import Control.Monad (mzero) 
import Data.Aeson 
import qualified Data.ByteString.Lazy.Char8 as LBSC 
import Data.Text 

data Field = Field { 
    wordcount :: Int 
} deriving (Show) 

instance FromJSON Field where 
    parseJSON (Object o) = Field <$> o .: "wordcount" 
    parseJSON _ = mzero 

data Tag = Tag { 
    id :: Text 
} deriving (Show) 

instance FromJSON Tag where 
    parseJSON (Object o) = Tag <$> (o .: "id") 
    parseJSON _ = mzero 

data SearchResult = SearchResult { 
    typ :: Text, 
    fields :: Field, 
    tags :: [Tag] 
} deriving (Show) 

instance FromJSON SearchResult where 
    parseJSON (Object v) = SearchResult <$> v .: "type" <*> v .: "fields" <*> v .: "tags" 
    parseJSON _ = mzero 

data ContentrResult = ContentrResult { 
    results :: [SearchResult], 
    status :: Text 
} deriving (Show) 

instance FromJSON ContentrResult where 
    parseJSON (Object v) = ContentrResult <$> v.: "results" <*> v .: "status" 
    parseJSON _ = mzero 

data Response = Response { 
    response :: ContentrResult 
} deriving (Show) 

instance FromJSON Response where 
    parseJSON (Object v) = Response <$> v .: "response" 
    parseJSON _ = mzero 

responseJson :: String 
responseJson = [str| 
    { 
    "response": { 
     "status": "ok", 
     "results": [ 
     { 
      "type": "article", 
      "fields": { 
      "wordcount": 497 
      }, 
      "tags": [ 
      { 
       "id": "profile/barryglendenning" 
      } 
      ] 
     } 
     ] 
    } 
    } 
|] 

main :: IO() 
main = do 
    print r 
    putStrLn "" 
    where 
     r :: Maybe Response 
     r = decode (LBSC.pack responseJson)