{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
module Web.Slack.User
( User(..)
, 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 User =
User
{ userId :: UserId
, userName :: Text
, userDeleted :: Bool
, userColor :: Maybe Color
, userIsAdmin :: Maybe Bool
, userIsOwner :: Maybe Bool
, userIsPrimaryOwner :: Maybe Bool
, userIsRestricted :: Maybe Bool
, userIsUltraRestricted :: Maybe Bool
, userUpdated :: POSIXTime
}
deriving (Eq, Generic, Show)
$(deriveFromJSON (jsonOpts "user") ''User)
data ListRsp =
ListRsp
{ listRspMembers :: [User]
}
deriving (Eq, Generic, Show)
$(deriveFromJSON (jsonOpts "listRsp") ''ListRsp)