フィールド名が予約済みのキーワードを含むJSONを解析します。

Question

私は次のJSONをaesonで解析しようとしています。

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

私は無視したいフィールドがたくさんあるので、それはI should use GHC genericsようです。しかし、dataとtypeのようなHaskellキーワードを使用するデータ型定義を書くにはどうすればいいですか？もちろん、次のようになります：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

あなたはGHC.Genericsに頼らず、独自のFromJSONとToJSONインスタンスを書くことができます。これはまた、データ表現とJSON表現に異なるフィールド名を使用できることを意味します。ポストのため

例インスタンス：

{-# 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を使用することもできます。これは、最初の引数としてフィールド名を変更する機能を使用します。