{-# LANGUAGE TemplateHaskell #-}
-- |
module Strive.Types.Clubs
( ClubDetailed (..),
ClubSummary (..),
)
where
import Data.Aeson.TH (deriveFromJSON)
import Data.Text (Text)
import Strive.Enums (ClubType, ResourceState, SportType)
import Strive.Internal.TH (options)
-- |
data ClubDetailed = ClubDetailed
{ clubDetailed_city :: Text,
clubDetailed_clubType :: ClubType,
clubDetailed_country :: Text,
clubDetailed_description :: Text,
clubDetailed_id :: Integer,
clubDetailed_memberCount :: Integer,
clubDetailed_name :: Text,
clubDetailed_private :: Bool,
clubDetailed_profile :: Text,
clubDetailed_profileMedium :: Text,
clubDetailed_resourceState :: ResourceState,
clubDetailed_sportType :: SportType,
clubDetailed_state :: Text
}
deriving (Show)
$(deriveFromJSON options ''ClubDetailed)
-- |
data ClubSummary = ClubSummary
{ clubSummary_id :: Integer,
clubSummary_name :: Text,
clubSummary_profile :: Text,
clubSummary_profileMedium :: Text,
clubSummary_resourceState :: ResourceState
}
deriving (Show)
$(deriveFromJSON options ''ClubSummary)