{-# LANGUAGE TemplateHaskell #-}
module Calamity.Types.Model.Presence.Presence (
Presence (..),
ClientStatus (..),
) where
import Calamity.Internal.Utils
import {-# SOURCE #-} Calamity.Types.Model.Guild.Guild
import Calamity.Types.Model.Presence.Activity
import Calamity.Types.Model.User
import Calamity.Types.Snowflake
import Data.Aeson ((.:), (.:?))
import qualified Data.Aeson as Aeson
import Data.Text (Text)
import Optics.TH
import TextShow.TH
data Presence = Presence
{ Presence -> Snowflake User
user :: Snowflake User
, Presence -> Snowflake Guild
guildID :: Snowflake Guild
, Presence -> StatusType
status :: StatusType
, Presence -> [Activity]
activities :: [Activity]
, Presence -> ClientStatus
clientStatus :: ClientStatus
}
deriving (Presence -> Presence -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Presence -> Presence -> Bool
$c/= :: Presence -> Presence -> Bool
== :: Presence -> Presence -> Bool
$c== :: Presence -> Presence -> Bool
Eq, Int -> Presence -> ShowS
[Presence] -> ShowS
Presence -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Presence] -> ShowS
$cshowList :: [Presence] -> ShowS
show :: Presence -> String
$cshow :: Presence -> String
showsPrec :: Int -> Presence -> ShowS
$cshowsPrec :: Int -> Presence -> ShowS
Show)
deriving (HasID User) via HasIDField "user" Presence
deriving (HasID Guild) via HasIDField "guildID" Presence
instance Aeson.FromJSON Presence where
parseJSON :: Value -> Parser Presence
parseJSON = forall a. String -> (Object -> Parser a) -> Value -> Parser a
Aeson.withObject String
"Presence" forall a b. (a -> b) -> a -> b
$ \Object
v -> do
Object
u :: Aeson.Object <- Object
v forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"user"
Snowflake User
-> Snowflake Guild
-> StatusType
-> [Activity]
-> ClientStatus
-> Presence
Presence
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
u forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
v forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"guild_id"
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
v forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"status"
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
v forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"activities"
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
v forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"client_status"
data ClientStatus = ClientStatus
{ ClientStatus -> Maybe Text
desktop :: Maybe Text
, ClientStatus -> Maybe Text
mobile :: Maybe Text
, ClientStatus -> Maybe Text
web :: Maybe Text
}
deriving (ClientStatus -> ClientStatus -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ClientStatus -> ClientStatus -> Bool
$c/= :: ClientStatus -> ClientStatus -> Bool
== :: ClientStatus -> ClientStatus -> Bool
$c== :: ClientStatus -> ClientStatus -> Bool
Eq, Int -> ClientStatus -> ShowS
[ClientStatus] -> ShowS
ClientStatus -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ClientStatus] -> ShowS
$cshowList :: [ClientStatus] -> ShowS
show :: ClientStatus -> String
$cshow :: ClientStatus -> String
showsPrec :: Int -> ClientStatus -> ShowS
$cshowsPrec :: Int -> ClientStatus -> ShowS
Show)
deriving ([ClientStatus] -> Encoding
[ClientStatus] -> Value
ClientStatus -> Encoding
ClientStatus -> Value
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [ClientStatus] -> Encoding
$ctoEncodingList :: [ClientStatus] -> Encoding
toJSONList :: [ClientStatus] -> Value
$ctoJSONList :: [ClientStatus] -> Value
toEncoding :: ClientStatus -> Encoding
$ctoEncoding :: ClientStatus -> Encoding
toJSON :: ClientStatus -> Value
$ctoJSON :: ClientStatus -> Value
Aeson.ToJSON) via CalamityToJSON ClientStatus
instance CalamityToJSON' ClientStatus where
toPairs :: forall kv. KeyValue kv => ClientStatus -> [Maybe kv]
toPairs ClientStatus {Maybe Text
web :: Maybe Text
mobile :: Maybe Text
desktop :: Maybe Text
$sel:web:ClientStatus :: ClientStatus -> Maybe Text
$sel:mobile:ClientStatus :: ClientStatus -> Maybe Text
$sel:desktop:ClientStatus :: ClientStatus -> Maybe Text
..} =
[ Key
"desktop" forall v kv. (ToJSON v, KeyValue kv) => Key -> Maybe v -> Maybe kv
.?= Maybe Text
desktop
, Key
"mobile" forall v kv. (ToJSON v, KeyValue kv) => Key -> Maybe v -> Maybe kv
.?= Maybe Text
mobile
, Key
"web" forall v kv. (ToJSON v, KeyValue kv) => Key -> Maybe v -> Maybe kv
.?= Maybe Text
web
]
instance Aeson.FromJSON ClientStatus where
parseJSON :: Value -> Parser ClientStatus
parseJSON = forall a. String -> (Object -> Parser a) -> Value -> Parser a
Aeson.withObject String
"ClientStatus" forall a b. (a -> b) -> a -> b
$ \Object
v ->
Maybe Text -> Maybe Text -> Maybe Text -> ClientStatus
ClientStatus
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
v forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"desktop"
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
v forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"mobile"
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
v forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"web"
$(deriveTextShow ''ClientStatus)
$(deriveTextShow ''Presence)
$(makeFieldLabelsNoPrefix ''Presence)
$(makeFieldLabelsNoPrefix ''ClientStatus)