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)