Calamity.Internal.MessageStore

A thing for storing the last N messages

Documentation

data MessageStore

Constructors

MessageStore

Fields

• messageQueue :: Deque (Snowflake Message)
• messages :: HashMap (Snowflake Message) Message
• limit :: Int
• size :: Int

Instances

Show MessageStore

Defined in Calamity.Internal.MessageStore

Methods

showsPrec :: Int -> MessageStore -> ShowS

show :: MessageStore -> String

showList :: [MessageStore] -> ShowS

Generic MessageStore

Defined in Calamity.Internal.MessageStore

Associated Types

type Rep MessageStore :: Type -> Type

Methods

from :: MessageStore -> Rep MessageStore x

to :: Rep MessageStore x -> MessageStore

At MessageStore

Defined in Calamity.Internal.MessageStore

Methods

at :: Index MessageStore -> Lens' MessageStore (Maybe (IxValue MessageStore))

Ixed MessageStore

Defined in Calamity.Internal.MessageStore

Methods

ix :: Index MessageStore -> Traversal' MessageStore (IxValue MessageStore)

Default MessageStore

Defined in Calamity.Internal.MessageStore

Methods

def :: MessageStore

type Rep MessageStore

Defined in Calamity.Internal.MessageStore

type Rep MessageStore = D1 ('MetaData "MessageStore" "Calamity.Internal.MessageStore" "calamity-0.1.4.1-inplace" 'False) (C1 ('MetaCons "MessageStore" 'PrefixI 'True) ((S1 ('MetaSel ('Just "messageQueue") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Deque (Snowflake Message))) :*: S1 ('MetaSel ('Just "messages") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (HashMap (Snowflake Message) Message))) :*: (S1 ('MetaSel ('Just "limit") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int) :*: S1 ('MetaSel ('Just "size") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int))))

type Index MessageStore

Defined in Calamity.Internal.MessageStore

type Index MessageStore = Snowflake Message

type IxValue MessageStore

Defined in Calamity.Internal.MessageStore

type IxValue MessageStore = Message

addMessage :: Message -> MessageStore -> MessageStore

getMessage :: Snowflake Message -> MessageStore -> Maybe Message

dropMessage :: Snowflake Message -> MessageStore -> MessageStore