module Web.Slack.Group
( Group(..)
, ListRsp(..)
)
where
import Data.Aeson.TH
import GHC.Generics (Generic)
import Web.Slack.Common
import Web.Slack.Util
import Data.Text (Text)
import Data.Time.Clock.POSIX
data Group =
Group
{ groupId :: Text
, groupName :: Text
, groupIsMpim :: Bool
, groupCreated :: POSIXTime
, groupCreator :: UserId
, groupIsArchived :: Bool
, groupMembers :: [UserId]
}
deriving (Eq, Generic, Show)
$(deriveFromJSON (jsonOpts "group") ''Group)
data ListRsp =
ListRsp
{ listRspGroups :: [Group]
}
deriving (Eq, Generic, Show)
$(deriveFromJSON (jsonOpts "listRsp") ''ListRsp)