Garmelon/haboli
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change how the example bot handles state

Browse source
This commit is contained in:
Joscha 2020-04-08 19:23:27 +00:00
parent 15cd6724d2
commit d2d07eb15a
2 changed files with 22 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/Haboli/Euphoria/Command.hs
View file

@ -32,10 +32,11 @@ runCommands (c:cs) msg = do
-- 'nextEvent':
--
-- > event <- respondingToCommands commands nextEvent
respondingToCommands :: [Command e] -> Client e Event -> Client e Event
respondingToCommands cmds holdingEvent = do
event <- holdingEvent
respondingToCommands :: Client e Event -> Client e [Command e] -> Client e Event
respondingToCommands getEvent getCommands = do
event <- getEvent
commands <- getCommands
case event of
EventSend e -> void $ runCommands cmds $ sendMessage e
EventSend e -> void $ runCommands commands $ sendMessage e
_ -> pure ()
pure event