{-# 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 =
{ :: Integer,
:: AthleteSummary,
:: UTCTime,
:: Integer,
:: ResourceState,
:: Text
}
deriving (Int -> CommentSummary -> ShowS
[CommentSummary] -> ShowS
CommentSummary -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CommentSummary] -> ShowS
$cshowList :: [CommentSummary] -> ShowS
show :: CommentSummary -> String
$cshow :: CommentSummary -> String
showsPrec :: Int -> CommentSummary -> ShowS
$cshowsPrec :: Int -> CommentSummary -> ShowS
Show)
$(deriveFromJSON options ''CommentSummary)