예약 키워드가 포함 된 필드 이름을 사용하여 JSON을 구문 분석합니다.

Question

나는 다음 JSON을 aeson으로 구문 분석하려고합니다. 내가 무시하고 싶은 분야가 많이 있기 때문에

{ 
    "data": [ 
     { 
      "id": "34", 
      "type": "link", 
      "story": "foo" 
     }, 
     { 
      "id": "35", 
      "type": "link", 
      "story": "bar" 
     } 
    ] 
} 

, 그것은 I should use GHC generics을 보인다. 그러나 하스켈 키워드 인 data과 type을 사용하는 데이터 유형 정의를 작성하는 방법은 무엇입니까? 물론 다음은 제공 : 당신은 GHC.Generics에 의존하지 않고 자신의 FromJSON 및 ToJSON 인스턴스를 작성할 수 있습니다 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) 

Answer 1

. 이것은 또한 데이터 표현 W JSON 표현에 대해 다른 필드 이름을 사용할 수 있음을의 L합니다. 포스트

예 인스턴스 :

{-# 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" 

동일 공급을 위해 수행 할 수 있습니다. 필드를 무시할 필요가 없다면 Data.Aeson.TH의 deriveJSON을 사용할 수도 있습니다.이 함수는 필드 이름을 첫 번째 인수로 수정하는 기능을 사용합니다.