HaskellはYAMLファイルからネストされたタイムスタンプを読み込みます

Question

最近ハスケルで遊んで始めたので、これを理解できないようです。

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を作成してFromJSONを実装することです。

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" 

希望するものがあります。