Haskell은 YAML 파일에서 중첩 된 타임 스탬프를 읽습니다.

Question

저는 최근 Haskell을 가지고 놀기 시작 했으므로 이것을 이해할 수 없습니다.

data Item= Item{ 
    id :: Integer, 
    kind::String 
    } 

그리고

:이 작업을 수행하여 ID와 종류 완벽하게 벌금을 읽을 수 있습니다 지금까지

id: 1 
kind: good 
created_at: !ruby/object:ActiveSupport::TimeWithZone 
    utc: &1 2017-01-01 10:34:12.533704000 Z 
    zone: &2 !ruby/object:ActiveSupport::TimeZone 
    time: *2 

:이 형식을 가지는 YAML 파일에서 읽어하려고

instance FromJSON Item where 
    parseJSON(Object v) = Item <$> 
     v .: "id" <*> 
     v .: "kind" 

"Data.Yaml"패키지와이 기능을 사용하고 있습니다 :
let items = Data.Yaml.decode ymlData :: Maybe[Item]

그러나 타임 스탬프를받는 방법을 알아낼 수 없습니다.

타임 스탬프를 가져 오는 올바른 방법은 무엇이겠습니까? "utc"만 필요합니다.

Answer 1

가장 쉬운 방법은 을 구현하는 newtype을 만드는 것입니다.

import Data.Time 
import Data.Yaml 

data Item = Item 
    { id :: Int 
    , kind :: String 
    , createdAt :: UTCTime 
    } deriving (Show) 

instance FromJSON Item where 
    parseJSON (Object v) = 
    Item <$> v .: "id" <*> v .: "kind" <*> v .: "created_at" 

newtype Time = Time String deriving (Show, Eq) 

instance FromJSON Time where 
    parseJSON (Object v) = Time <$> v .: "utc" 

희망이 있습니다.