blob: 1db8f36da646b7268ab3bb4bdbcf5e801993b987 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
module HsBot.Callbacks (callbacksRun) where
import HsBot.Base.Env
import HsBot.Base.State
import HsBot.Callbacks.Dummy
import HsBot.Callbacks.PrintMessages
import HsBot.Callbacks.MessageCounter
registeredCallbacks = [dummy, printMessages, messageCounter]
callbacksRun :: String -> SendMessage -> Env -> IO Env
callbacksRun str sendMessage env@(Env state _)
| isReady state = callbackAll registeredCallbacks env
| otherwise = do { putStrLn str; return (env) }
where
callbackAll [] env = return (env)
callbackAll (callback:restCallbacks) env = do
env' <- callback str sendMessage env
callbackAll restCallbacks env'
|
