{-# 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)