blob: f285ec6c8592a9d67fae28b21fb3c0a7c9a26053 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
module HsBot.Callbacks.MessageCounter (messageCounter) where
import HsBot.Base.Env
import HsBot.Base.State
import HsBot.IRC.User
messageCounter :: String -> SendMessage -> Env -> IO Env
messageCounter str sendMessage (Env state conf) = do
let users' = users state
return (Env state { users = users' } conf)
|
