Calamity.Client.Client

The client

Documentation

react :: forall (s :: EventType) r t eh ehIO. (BotC r, InsertEventHandler s, RemoveEventHandler s, eh ~ EHType s (Sem r) (), ehIO ~ EHType s IO (), Uncurry eh, Uncurried eh ~ (t -> Sem r ()), Curry (t -> IO ()), ehIO ~ Curried (t -> IO ())) => eh -> Sem r (Sem r ())

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:

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 :: forall r a. (Members '[Embed IO, Final IO, CacheEff, MetricEff] r, Typeable (SetupEff r)) => Token -> Sem (SetupEff r) a -> Sem r (Maybe StartupError)

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

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)

waitUntil :: forall (s :: EventType) r t eh ehB. (BotC r, InsertEventHandler s, RemoveEventHandler s, Uncurry eh, eh ~ EHType s (Sem r) (), eh ~ Curried (t -> Sem r ()), Uncurry ehB, Uncurried ehB ~ (t -> Sem r Bool), Curry (t -> IO ()), Curried (t -> IO ()) ~ EHType s IO ()) => ehB -> Sem r t

Wait until an event satisfying a condition happens, then returns it's parameters

Sorry about this horrendous type sig, this is what it would look like with s ~ 'MessageCreateEvt:

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

And for s ~ 'MessageUpdateEvt:

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

Examples

Waiting for a message containing the text "hi":

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

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.8.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)