Documentation

Register an event handler, returning an action that removes the event handler from the bot.

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:

data MyCustomEvt = MyCustomEvt Text Message

react ('CustomEvt MyCustomEvt) $ \(MyCustomEvt 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.

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

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

This version allows you to specify the initial status

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

This version only handles the Reader Client effect, allowing you to handle the AtomicState EventHandlers yourself.

Initiate shutting down the bot.

Set the bot's presence on all shards.

Get a copy of the event stream.

Fire an event that the bot will then handle.

Examples

Firing an event named "my-event":

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

Wait until an event satisfying a condition happens, then returns its parameters.

The check function for this command is pure unlike waitUntilM

This is what it would look like with s ~ 'MessageCreateEvt:

waitUntil :: (Message -> Bool) -> Sem r Message

And for s ~ 'MessageUpdateEvt:

waitUntil :: ((Message, Message) -> Bool) -> Sem r (Message, Message)

Examples

Waiting for a message containing the text "hi":

f = do msg <- waitUntil @'MessageCreateEvt (\m -> isInfixOf "hi" $ m ^. #content)
       print $ msg ^. #content

Wait until an event satisfying a condition happens, then returns its parameters

This is what it would look like with s ~ 'MessageCreateEvt:

waitUntilM :: (Message -> Sem r Bool) -> Sem r Message

And for s ~ 'MessageUpdateEvt:

waitUntilM :: ((Message, Message) -> Sem r Bool) -> Sem r (Message, Message)

Examples

Waiting for a message containing the text "hi":

f = do msg <- waitUntilM @'MessageCreateEvt (\m -> (debug $ "got message: " <> showt msg) >> (pure $ isInfixOf "hi" $ m ^. #content))
       print $ msg ^. #content

Build a Custom CalamityEvent

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

Examples

customEvt (MyCustomEvent "lol")