Parse JSON mit Feldnamen, die reservierte Schlüsselwörter enthalten

Question

Ich versuche, den folgenden JSON mit AESON zu analysieren.

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

Da es eine Menge von Feld sind würde ich ignorieren möchte, so scheint es I should use GHC generics. Aber wie schreibt man eine Datentyp-Definition, die Haskell-Schlüsselwörter wie data und type verwendet? Im Folgenden natürlich gibt: 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

Sie können, ohne sich auf GHC.Generics Ihre eigene FromJSON und ToJSON Instanzen schreiben. Dies bedeutet auch, dass Sie unterschiedliche Feldnamen für die Datendarstellung und die JSON-Darstellung verwenden können.

Beispiel Instanzen für Beitrag:

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

Das gleiche gilt für Feed erfolgen. Wenn Sie Felder nicht ignorieren müssen, können Sie auch deriveJSON von Data.Aeson.TH verwenden, die eine Funktion zum Ändern von Feldnamen als erstes Argument verwendet.