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)