{-# LANGUAGE TemplateHaskell #-}
-- |
module Strive.Types.Comments
( CommentSummary (..),
)
where
import Data.Aeson.TH (deriveFromJSON)
import Data.Text (Text)
import Data.Time.Clock (UTCTime)
import Strive.Enums (ResourceState)
import Strive.Internal.TH (options)
import Strive.Types.Athletes (AthleteSummary)
-- |
data CommentSummary = CommentSummary
{ commentSummary_activityId :: Integer,
commentSummary_athlete :: AthleteSummary,
commentSummary_createdAt :: UTCTime,
commentSummary_id :: Integer,
commentSummary_resourceState :: ResourceState,
commentSummary_text :: Text
}
deriving (Show)
$(deriveFromJSON options ''CommentSummary)