aeson에서 사용자 정의 json 문자열로 레코드의 생성자 변환 haskell

Question

json을 아래 형식으로 변환하고 싶습니다. 그리고 아래 형식을 내 기록으로 변환하십시오. 아래에 작성한 코드를 확인하십시오.

{ 
    "uid" : "bob", 
    "emailid" : "bob@bob.com", 
    "email_verified" : "Y" // "Y" for EmailVerified and "N" for EmailNotVerified 
} 

나는, 내가 하스켈

그러나

{-# LANGUAGE OverloadedStrings #-} 
{-# LANGUAGE DeriveGeneriC#-} 

import Data.Monoid ((<>)) 
import GHC.Generics 
import Data.Aeson (FromJSON, ToJSON) 
import Data.Aeson.Types 

data User = User { 
    userId :: String, 
    userEmail :: String, 
    userEmailVerified :: EmailState 
    } deriving (Show, Generic) 

data EmailState = EmailVerified | EmailNotVerified deriving (Generic, Show) 

instance ToJSON User where 
    toJSON u = object [ 
     "uid" .= userId u, 
     "emailid" .= userEmail u, 
     "email_verified" .= userEmailVerified u 
     ] 

instance FromJSON User where 
    parseJSON = withObject "User" $ \v -> User 
     <$> v .: "uid" 
     <*> v .: "emailid" 
     <*> v .: "email_verified" 

instance ToJSON EmailState 
instance FromJSON EmailState 

에 아이손 라이브러리를 사용하여 JSON을 에서 사용자 유형을 변환하려고 코드 아래 나는 아래처럼 생성 현재 수 있어요 내 형식이

{ 
    "uid" : "bob", 
    "emailid" : "bob@bob.com", 
    "email_verified" : "EmailVerified" 
} 

Answer 1

당신은 그래서 instance ToJSON EmailState를 제거 EmailState 자신 (의 ToJSON를 구현해야하고, 가) 좋아 쓰기 :

instance ToJSON EmailState where 
    toJSON EmailVerified = String "Y" 
    toJSON EmailNotVerified = String "N"

또한 yhe 파서를 변경해야합니다

instance FromJSON EmailState where 
    parseJSON (String "Y") = return EmailVerified 
    parseJSON (String "N") = return EmailNotVerified 
    parseJSON _ = fail "Invalid JSON value to parse"