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

Default MessageStore

Defined in Calamity.Internal.MessageStore

Methods

def :: MessageStore

Ixed MessageStore

Defined in Calamity.Internal.MessageStore

Methods

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

At MessageStore

Defined in Calamity.Internal.MessageStore

Methods

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

type Rep MessageStore

Defined in Calamity.Internal.MessageStore

type Rep MessageStore = D1 (MetaData "MessageStore" "Calamity.Internal.MessageStore" "calamity-0.1.0.0-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