Calamity.Client.Client

The client

Documentation

react :: forall (s :: EventType) r. (BotC r, InsertEventHandler s (Sem r)) => EHType s (Sem r) -> Sem r ()

Register an event handler.

Refer to EventType for what events you can register, and EHType for the parameters the event handlers they receive.

You'll probably want TypeApplications and need DataKinds enabled to specify the type of s.

Examples

Reacting to every message:

react @'MessageCreateEvt $ msg -> print $ "Got message: " <> show msg

Reacting to a custom event:

react ('CustomEvt "my-event" (Text, Message)) $ (s, m) ->
   void $ tell Text m ("Somebody told me to tell you about: " <> s)

Notes

This function is pretty bad for giving nasty type errors, since if something doesn't match then EHType might not get substituted, which will result in errors about parameter counts mismatching.

runBotIO :: (Members '[Embed IO, Final IO, Fail, CacheEff, MetricEff] r, Typeable r) => Token -> SetupEff r -> Sem r ()

Create a bot, run your setup action, and then loop until the bot closes.

This method has a Fail effect to handle fatal errors that happen during setup (bad token, etc).

stopBot :: BotC r => Sem r ()

Initiate shutting down the bot.

sendPresence :: BotC r => StatusUpdateData -> Sem r ()

Set the bot's presence on all shards.

events :: BotC r => Sem r (OutChan CalamityEvent)

Get a copy of the event stream.

fire :: BotC r => CalamityEvent -> Sem r ()

Fire an event that the bot will then handle.

Examples

Firing an event named "my-event":

fire $ customEvt @"my-event" ("aha" :: Text, msg)

data CalamityEvent

Constructors

Dispatch DispatchData

ShutDown

Instances

Show CalamityEvent

Defined in Calamity.Gateway.DispatchEvents

Methods

showsPrec :: Int -> CalamityEvent -> ShowS

show :: CalamityEvent -> String

showList :: [CalamityEvent] -> ShowS

Generic CalamityEvent

Defined in Calamity.Gateway.DispatchEvents

Associated Types

type Rep CalamityEvent :: Type -> Type

Methods

from :: CalamityEvent -> Rep CalamityEvent x

to :: Rep CalamityEvent x -> CalamityEvent

type Rep CalamityEvent

Defined in Calamity.Gateway.DispatchEvents

type Rep CalamityEvent = D1 ('MetaData "CalamityEvent" "Calamity.Gateway.DispatchEvents" "calamity-0.1.7.0-inplace" 'False) (C1 ('MetaCons "Dispatch" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 DispatchData)) :+: (C1 ('MetaCons "Custom" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TypeRep) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Dynamic)) :+: C1 ('MetaCons "ShutDown" 'PrefixI 'False) (U1 :: Type -> Type)))

customEvt :: forall s a. (Typeable s, Typeable a) => a -> CalamityEvent

Build a Custom CalamityEvent

You'll probably want TypeApplications to specify the type of s.

The types of s and a must match up with the event handler you want to receive it.

Examples

Building an event named "my-event":

customEvt @"my-event" ("aha" :: Text, msg)