Ayrılmış anahtar kelimeler içeren alan adlarıyla JSON'yi ayrıştırın

Question

Aşağıdaki JSON'u aeson ile ayrıştırmaya çalışıyorum. Ben görmezden istediğiniz alanı bir sürü olduğundan

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

, bu I should use GHC generics görünüyor. Ancak, data ve type gibi Haskell anahtar sözcüklerini kullanan bir veri türü tanımı nasıl yazılır? Tabii şu verir: Sen GHC.Generics dayanmadan kendi FromJSON ve ToJSON örneklerini yazabilir 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

. Bu aynı zamanda veri gösterimi ve JSON gösterimi için farklı alan adlarını kullanabileceğiniz anlamına gelir. Post için

Örnek örnekleri:

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

aynı Yem için yapılabilir. Alanları göz ardı etmek zorunda kalmadıysanız, alan adlarını ilk argüman olarak değiştirmek için Data.Aeson.TH'dan deriveJSON kullanabilirsiniz.