Calamity.Types.Model.Channel.Message

A message from a channel

Documentation

data Message

Constructors

Message

Fields

• id :: Snowflake Message
• channelID :: Snowflake Channel
• guildID :: Maybe (Snowflake Guild)
• author :: Snowflake User
• content :: Text
• timestamp :: UTCTime
• editedTimestamp :: Maybe UTCTime
• tts :: Bool
• mentionEveryone :: Bool
• mentions :: Vector (Snowflake User)
• mentionRoles :: Vector (Snowflake Role)
• mentionChannels :: Maybe (Vector (Snowflake Channel))
• attachments :: ![Attachment]
• embeds :: ![Embed]
• reactions :: ![Reaction]
• nonce :: Maybe (Snowflake Message)
• pinned :: Bool
• webhookID :: Maybe (Snowflake ())
• type_ :: !MessageType

Instances

Eq Message

Defined in Calamity.Types.Model.Channel.Message

Methods

(==) :: Message -> Message -> Bool

(/=) :: Message -> Message -> Bool

Show Message

Defined in Calamity.Types.Model.Channel.Message

Methods

showsPrec :: Int -> Message -> ShowS

show :: Message -> String

showList :: [Message] -> ShowS

Generic Message

Defined in Calamity.Types.Model.Channel.Message

Associated Types

type Rep Message :: Type -> Type

Methods

from :: Message -> Rep Message x

to :: Rep Message x -> Message

FromJSON Message

Defined in Calamity.Types.Model.Channel.Message

Methods

parseJSON :: Value -> Parser Message

parseJSONList :: Value -> Parser [Message]

TextShow Message

Defined in Calamity.Types.Model.Channel.Message

Methods

showbPrec :: Int -> Message -> Builder

showb :: Message -> Builder

showbList :: [Message] -> Builder

showtPrec :: Int -> Message -> Text

showt :: Message -> Text

showtList :: [Message] -> Text

showtlPrec :: Int -> Message -> Text

showtl :: Message -> Text

showtlList :: [Message] -> Text

Updateable Message

Defined in Calamity.Internal.Updateable

Associated Types

type Updated Message

Methods

update :: Updated Message -> Message -> Message

Tellable Message

Defined in Calamity.Types.Tellable

Methods

getChannel :: forall (r :: [(Type -> Type) -> Type -> Type]). (BotC r, Member (Error RestError) r) => Message -> Sem r (Snowflake Channel)

HasID Channel Message

Defined in Calamity.Types.Model.Channel.Message

Methods

getID :: Message -> Snowflake Channel

HasID Message Message

Defined in Calamity.Types.Model.Channel.Message

Methods

getID :: Message -> Snowflake Message

HasID Message Reaction

Defined in Calamity.Types.Model.Channel.Reaction

Methods

getID :: Reaction -> Snowflake Message

HasID Message UpdatedMessage

Defined in Calamity.Types.Model.Channel.UpdatedMessage

Methods

getID :: UpdatedMessage -> Snowflake Message

HasID User Message

Defined in Calamity.Types.Model.Channel.Message

Methods

getID :: Message -> Snowflake User

type Rep Message

Defined in Calamity.Types.Model.Channel.Message

type Rep Message = D1 ('MetaData "Message" "Calamity.Types.Model.Channel.Message" "calamity-0.1.26.0-8Rbyh2JfYBvC9UHgZLNZiA" 'False) (C1 ('MetaCons "Message" 'PrefixI 'True) ((((S1 ('MetaSel ('Just "id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Snowflake Message)) :*: S1 ('MetaSel ('Just "channelID") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Snowflake Channel))) :*: (S1 ('MetaSel ('Just "guildID") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe (Snowflake Guild))) :*: S1 ('MetaSel ('Just "author") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Snowflake User)))) :*: ((S1 ('MetaSel ('Just "content") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Text) :*: S1 ('MetaSel ('Just "timestamp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 UTCTime)) :*: (S1 ('MetaSel ('Just "editedTimestamp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe UTCTime)) :*: (S1 ('MetaSel ('Just "tts") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Bool) :*: S1 ('MetaSel ('Just "mentionEveryone") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Bool))))) :*: (((S1 ('MetaSel ('Just "mentions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Vector (Snowflake User))) :*: S1 ('MetaSel ('Just "mentionRoles") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Vector (Snowflake Role)))) :*: (S1 ('MetaSel ('Just "mentionChannels") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe (Vector (Snowflake Channel)))) :*: (S1 ('MetaSel ('Just "attachments") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 [Attachment]) :*: S1 ('MetaSel ('Just "embeds") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 [Embed])))) :*: ((S1 ('MetaSel ('Just "reactions") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 [Reaction]) :*: S1 ('MetaSel ('Just "nonce") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe (Snowflake Message)))) :*: (S1 ('MetaSel ('Just "pinned") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Bool) :*: (S1 ('MetaSel ('Just "webhookID") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe (Snowflake ()))) :*: S1 ('MetaSel ('Just "type_") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 MessageType)))))))

type Updated Message

Defined in Calamity.Internal.Updateable

type Updated Message = UpdatedMessage

data MessageType

Constructors

Default

RecipientAdd

RecipientRemove

Call

ChannelNameChange

ChannelIconChange

ChannelPinnedMessage

GuildMemberJoin

UserPremiumGuildSubscription

UserPremiumGuildSubscriptionTier1

UserPremiumGuildSubscriptionTier2

UserPremiumGuildSubscriptionTier3

ChannelFollowAdd

GuildDiscoveryDisqualified

GuildDiscoveryRequalified

Instances

Enum MessageType

Defined in Calamity.Types.Model.Channel.Message

Methods

succ :: MessageType -> MessageType

pred :: MessageType -> MessageType

toEnum :: Int -> MessageType

fromEnum :: MessageType -> Int

enumFrom :: MessageType -> [MessageType]

enumFromThen :: MessageType -> MessageType -> [MessageType]

enumFromTo :: MessageType -> MessageType -> [MessageType]

enumFromThenTo :: MessageType -> MessageType -> MessageType -> [MessageType]

Eq MessageType

Defined in Calamity.Types.Model.Channel.Message

Methods

(==) :: MessageType -> MessageType -> Bool

(/=) :: MessageType -> MessageType -> Bool

Show MessageType

Defined in Calamity.Types.Model.Channel.Message

Methods

showsPrec :: Int -> MessageType -> ShowS

show :: MessageType -> String

showList :: [MessageType] -> ShowS

Generic MessageType

Defined in Calamity.Types.Model.Channel.Message

Associated Types

type Rep MessageType :: Type -> Type

Methods

from :: MessageType -> Rep MessageType x

to :: Rep MessageType x -> MessageType

FromJSON MessageType

Defined in Calamity.Types.Model.Channel.Message

Methods

parseJSON :: Value -> Parser MessageType

parseJSONList :: Value -> Parser [MessageType]

TextShow MessageType

Defined in Calamity.Types.Model.Channel.Message

Methods

showbPrec :: Int -> MessageType -> Builder

showb :: MessageType -> Builder

showbList :: [MessageType] -> Builder

showtPrec :: Int -> MessageType -> Text

showt :: MessageType -> Text

showtList :: [MessageType] -> Text

showtlPrec :: Int -> MessageType -> Text

showtl :: MessageType -> Text

showtlList :: [MessageType] -> Text

type Rep MessageType

Defined in Calamity.Types.Model.Channel.Message

type Rep MessageType = D1 ('MetaData "MessageType" "Calamity.Types.Model.Channel.Message" "calamity-0.1.26.0-8Rbyh2JfYBvC9UHgZLNZiA" 'False) (((C1 ('MetaCons "Default" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "RecipientAdd" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "RecipientRemove" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Call" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ChannelNameChange" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ChannelIconChange" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ChannelPinnedMessage" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "GuildMemberJoin" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "UserPremiumGuildSubscription" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "UserPremiumGuildSubscriptionTier1" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "UserPremiumGuildSubscriptionTier2" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "UserPremiumGuildSubscriptionTier3" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ChannelFollowAdd" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "GuildDiscoveryDisqualified" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "GuildDiscoveryRequalified" 'PrefixI 'False) (U1 :: Type -> Type)))))