blob: 763289b76e6f30e664d4067afe064d076b4689bc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
module HsBot.Callbacks (callbacksRun) where
import HsBot.Base.Env
import HsBot.Base.State
import HsBot.Callbacks.MessageCounter
import HsBot.Callbacks.PrintMessages
import HsBot.Callbacks.StoreMessages
import HsBot.Callbacks.Dummy
registeredCallbacks = [
messageCounter,
printMessages,
storeMessages,
dummy,
]
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'
|
