hurriyet-0.2.0.0: lib/Hurriyet/Services/Path.hs

{-# LANGUAGE OverloadedStrings, DeriveGeneric, RecordWildCards #-}

module Hurriyet.Services.Path where

import Data.Aeson
import GHC.Generics

data Path = Path
  { _id          :: String
  , path         :: String
  , title        :: String
  } deriving (Generic, Show, Eq)

instance FromJSON Path where
  parseJSON = withObject "path" $ \o -> do
    _id   <- o .: "Id"
    path  <- o .: "Path"
    title <- o .: "Title"
    return Path {..}

instance ToJSON Path