Parsuj JSON z nazwami pól, które zawierają zastrzeżone słowa kluczowe

Question

Próbuję parsować następujący JSON z aesonem.

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

Ponieważ istnieje wiele pola chciałabym zignorować, wydaje I should use GHC generics. Ale jak napisać definicję typu danych, która używa słów kluczowych Haskella, takich jak data i type? Poniższa oczywiście daje: 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

Można pisać własne FromJSON i ToJSON instancje bez polegania na GHC.Generics. Oznacza to również, że można używać różnych nazw pól dla reprezentacji danych i reprezentacji JSON.

przykładowych na wiadomość:

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

To samo może być wykonane w paszy. Jeśli nie musisz ignorować pól, możesz również użyć deriveJSON z Data.Aeson.TH, która przyjmuje funkcję do modyfikowania nazw pól jako pierwszego argumentu.