{-# LANGUAGE TemplateHaskell #-}

-- | A Group Group channel
module Calamity.Types.Model.Channel.Group (GroupChannel (..)) where

import {-# SOURCE #-} Calamity.Types.Model.Channel
import {-# SOURCE #-} Calamity.Types.Model.Channel.Message
import Calamity.Types.Model.User
import Calamity.Types.Snowflake
import Data.Aeson ((.:), (.:?))
import qualified Data.Aeson as Aeson
import Data.Text (Text)
import Data.Time
import Optics.TH
import qualified TextShow

data GroupChannel = GroupChannel
  { GroupChannel -> Snowflake GroupChannel
id :: Snowflake GroupChannel
  , GroupChannel -> Snowflake User
ownerID :: Snowflake User
  , GroupChannel -> Maybe (Snowflake Message)
lastMessageID :: Maybe (Snowflake Message)
  , GroupChannel -> Maybe UTCTime
lastPinTimestamp :: Maybe UTCTime
  , GroupChannel -> Maybe Text
icon :: Maybe Text
  , GroupChannel -> [User]
recipients :: [User]
  , GroupChannel -> Text
name :: Text
  }
  deriving (Int -> GroupChannel -> ShowS
[GroupChannel] -> ShowS
GroupChannel -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GroupChannel] -> ShowS
$cshowList :: [GroupChannel] -> ShowS
show :: GroupChannel -> String
$cshow :: GroupChannel -> String
showsPrec :: Int -> GroupChannel -> ShowS
$cshowsPrec :: Int -> GroupChannel -> ShowS
Show, GroupChannel -> GroupChannel -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GroupChannel -> GroupChannel -> Bool
$c/= :: GroupChannel -> GroupChannel -> Bool
== :: GroupChannel -> GroupChannel -> Bool
$c== :: GroupChannel -> GroupChannel -> Bool
Eq)
  deriving (Int -> GroupChannel -> Builder
Int -> GroupChannel -> Text
Int -> GroupChannel -> Text
[GroupChannel] -> Builder
[GroupChannel] -> Text
[GroupChannel] -> Text
GroupChannel -> Builder
GroupChannel -> Text
GroupChannel -> Text
forall a.
(Int -> a -> Builder)
-> (a -> Builder)
-> ([a] -> Builder)
-> (Int -> a -> Text)
-> (a -> Text)
-> ([a] -> Text)
-> (Int -> a -> Text)
-> (a -> Text)
-> ([a] -> Text)
-> TextShow a
showtlList :: [GroupChannel] -> Text
$cshowtlList :: [GroupChannel] -> Text
showtl :: GroupChannel -> Text
$cshowtl :: GroupChannel -> Text
showtlPrec :: Int -> GroupChannel -> Text
$cshowtlPrec :: Int -> GroupChannel -> Text
showtList :: [GroupChannel] -> Text
$cshowtList :: [GroupChannel] -> Text
showt :: GroupChannel -> Text
$cshowt :: GroupChannel -> Text
showtPrec :: Int -> GroupChannel -> Text
$cshowtPrec :: Int -> GroupChannel -> Text
showbList :: [GroupChannel] -> Builder
$cshowbList :: [GroupChannel] -> Builder
showb :: GroupChannel -> Builder
$cshowb :: GroupChannel -> Builder
showbPrec :: Int -> GroupChannel -> Builder
$cshowbPrec :: Int -> GroupChannel -> Builder
TextShow.TextShow) via TextShow.FromStringShow GroupChannel
  deriving (HasID GroupChannel) via HasIDField "id" GroupChannel
  deriving (HasID Channel) via HasIDFieldCoerce' "id" GroupChannel
  deriving (HasID User) via HasIDField "ownerID" GroupChannel

$(makeFieldLabelsNoPrefix ''GroupChannel)

instance Aeson.FromJSON GroupChannel where
  parseJSON :: Value -> Parser GroupChannel
parseJSON = forall a. String -> (Object -> Parser a) -> Value -> Parser a
Aeson.withObject String
"GroupChannel" forall a b. (a -> b) -> a -> b
$ \Object
v ->
    Snowflake GroupChannel
-> Snowflake User
-> Maybe (Snowflake Message)
-> Maybe UTCTime
-> Maybe Text
-> [User]
-> Text
-> GroupChannel
GroupChannel
      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
v 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
"owner_id"
      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
"last_message_id"
      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
"last_pin_timestamp"
      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
"icon"
      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
v forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"recipients"
      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
v forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"name"