{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeApplications #-}
module Web.Slack.Im
( Im(..)
, ListRsp(..)
)
where
import Data.Aeson.TH
import GHC.Generics (Generic)
import Web.Slack.Util
import Web.Slack.Common
import Data.Text (Text)
import Data.Time.Clock.POSIX
data Im =
Im
{ imId :: Text
, imIsIm :: Bool
, imUser :: UserId
, imCreated :: POSIXTime
, imIsUserDeleted :: Bool
}
deriving (Eq, Generic, Show)
$(deriveFromJSON (jsonOpts "im") ''Im)
data ListRsp =
ListRsp
{ listRspIms :: [Im]
}
deriving (Eq, Generic, Show)
$(deriveFromJSON (jsonOpts "listRsp") ''ListRsp)