User.hs

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE OverloadedLists #-}

----------------------------------------------------------------------
-- |
-- Module: Web.Slack.User
-- Description:
--
--
--
----------------------------------------------------------------------

module Web.Slack.User
  ( Profile(..)
  , User(..)
  , ListRsp(..)
  , Email(..)
  , UserRsp(..)
  )
  where

-- aeson
import Data.Aeson.TH

-- base
import GHC.Generics (Generic)

-- slack-web
import Web.Slack.Common
import Web.Slack.Util

-- text
import Data.Text (Text)

-- time
import Data.Time.Clock.POSIX

-- http-api-data
import Web.HttpApiData
import Web.FormUrlEncoded

-- See https://api.slack.com/types/user

data Profile = 
  Profile 
    { profileAvatarHash :: Maybe Text
    , profileStatusText :: Maybe Text
    , profileStatusEmoji :: Maybe Text 
    , profileRealName :: Maybe Text 
    , profileDisplayName :: Maybe Text 
    , profileRealNameNormalized :: Maybe Text 
    , profileDisplayNameNormalized :: Maybe Text 
    , profileEmail :: Maybe Text 
    , profileImage_24 :: Text 
    , profileImage_32 :: Text 
    , profileImage_48 :: Text 
    , profileImage_72 :: Text 
    , profileImage_192 :: Text 
    , profileImage_512 :: Text 
    , profileTeam :: Maybe Text 
    }
  deriving (Eq, Generic, Show)

$(deriveFromJSON (jsonOpts "profile") ''Profile)

data User =
  User
    { userId :: UserId
    , userName :: Text
    , userDeleted :: Bool
    , userColor :: Maybe Color
    , userProfile :: Maybe Profile
    , 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)


data UserRsp =
  UserRsp
    { userRspUser :: User
    }
  deriving (Eq, Generic, Show)

$(deriveFromJSON (jsonOpts "UserRsp") ''UserRsp)

newtype Email = Email Text deriving (Eq, Generic, Show)
instance ToForm Email where 
  toForm (Email txt) = [("email", toQueryParam txt)]