asana-1.0.1.0: library/Asana/Api/Tag.hs

module Asana.Api.Tag
  ( Tag(..)
  ) where

import Asana.Api.Prelude

import Asana.Api.Gid
import Data.Aeson
import Data.Aeson.Casing (aesonPrefix, snakeCase)

data Tag = Tag
  { tGid :: Gid
  , tName :: Text
  }
  deriving stock (Eq, Generic, Show)

instance FromJSON Tag where
  parseJSON = genericParseJSON $ aesonPrefix snakeCase