HsBot/Callbacks/MessageCounter.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

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
      return (Env state { users = users' } conf)
   where
      update user = user { userMessages = 1 + userMessages user }
      users' = usersUpdate (currentSender state) (users state) update