blob: 18f6dba5ef2b189ca40b2664577cb815cde03aad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module HsBot.Callbacks.MessageCounter (makeMessageCounter) where
import HsBot.Callbacks.Base
import HsBot.Base.Env
import HsBot.Base.State
import HsBot.IRC.User
update user = user { userMessages = 1 + userMessages user }
messageCounter :: CallbackFunction
messageCounter str sendMessage (Env state conf) = do
return (Env (stateUpdateUser state (currentSender state) update) conf)
makeMessageCounter = Callback 0 messageCounter
|
