From ad2e856414300fafee5ab4afd4f2356b0c2fd159 Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sat, 15 May 2010 16:35:02 +0000
Subject: implemented callback MessageCounter.

it counts each message a user has posted @ channel


git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@59 9f8f72e9-4bf4-416e-b76e-7d4203597157
---
 HsBot/Callbacks/MessageCounter.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'HsBot/Callbacks/MessageCounter.hs')

diff --git a/HsBot/Callbacks/MessageCounter.hs b/HsBot/Callbacks/MessageCounter.hs
index f285ec6..2b5482e 100644
--- a/HsBot/Callbacks/MessageCounter.hs
+++ b/HsBot/Callbacks/MessageCounter.hs
@@ -7,5 +7,7 @@ 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)
+      return (Env state { users = users' } conf)
+   where
+      update user = user { userMessages = 1 + userMessages user }
+      users' = usersUpdate (currentSender state) (users state) update
-- 
cgit v1.2.3