asana-1.0.0.0: library/Asana/Api/Project.hs

module Asana.Api.Project
  ( Project(..)
  ) where

import Asana.Api.Prelude

import Asana.Api.Gid (Gid)
import Data.Aeson (FromJSON, genericParseJSON, parseJSON)
import Data.Aeson.Casing (aesonPrefix, snakeCase)
import Data.Time (UTCTime)

data Project = Project
  { pGid :: Gid
  , pName :: Text
  , pCreatedAt :: UTCTime
  }
  deriving stock (Generic, Show)

instance FromJSON Project where
  parseJSON = genericParseJSON $ aesonPrefix snakeCase