blob: 1f12e62315911bfc70f782bccba25feef91e95df (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
module HsBot.Callbacks.MessageCounter (messageCounter) where
import HsBot.Base.Env
import HsBot.Base.State
import HsBot.IRC.User
update user = user { userMessages = 1 + userMessages user }
messageCounter :: String -> SendMessage -> Env -> IO Env
messageCounter str sendMessage (Env state conf) = do
return (Env (stateUpdateUser state (currentSender state) update) conf)
|
