blob: a2782a82967dc233585544fb96197248ad4f402f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
module HsBot.Callbacks.MessageCounter (messageCounter) where
import HsBot.Callbacks.Callback
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)
|
