blob: 0fa5545286f4f1dd3069fba21e8ca30519f4f28b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module HsBot.Plugins.MessageCounter (makeMessageCounter) where
import HsBot.Plugins.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 = Plugin 0 messageCounter
|
