From eb0ca70a636183fea73d884e20a48ac6120066bc Mon Sep 17 00:00:00 2001 From: pb Date: Sun, 28 Mar 2010 13:32:02 +0000 Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@54 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- HsBot/Callbacks/MessageCounter.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 HsBot/Callbacks/MessageCounter.hs (limited to 'HsBot/Callbacks/MessageCounter.hs') diff --git a/HsBot/Callbacks/MessageCounter.hs b/HsBot/Callbacks/MessageCounter.hs new file mode 100644 index 0000000..e4f8f3d --- /dev/null +++ b/HsBot/Callbacks/MessageCounter.hs @@ -0,0 +1,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 (user, users') = userGet (currentSender state) (users state) + return (Env state { users = users' } conf) + -- cgit v1.2.3