फ़ील्ड नामों के साथ पार्स JSON जिसमें आरक्षित कीवर्ड

Question

शामिल हैं, मैं निम्नलिखित JSON को एसन के साथ पार्स करने का प्रयास कर रहा हूं।

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

चूंकि मैं ध्यान नहीं देना चाहते क्षेत्र का एक बहुत हैं, यह I should use GHC generics लगता है। लेकिन डेटा प्रकार परिभाषा कैसे लिखें जो data और type जैसे हास्केल कीवर्ड का उपयोग करती है? निश्चित रूप से निम्नलिखित देता है: 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 से भी कर सकते हैं, जो फ़ील्ड नामों को संशोधित करने के लिए एक फ़ंक्शन लेता है क्योंकि यह पहला तर्क है।