blob: e3d8648baf598f44dd75cb75acd3c50f42ee7021 (
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
messageCounter :: String -> SendMessage -> Env -> IO Env
messageCounter str sendMessage (Env state conf) = do
let users' = users state
return (Env state { users = users' } conf)
|
