From 2341aa600daac2c8afa366cd612a893580104a93 Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sun, 28 Mar 2010 21:39:32 +0000
Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@55
 9f8f72e9-4bf4-416e-b76e-7d4203597157

---
 HsBot/Callbacks/MessageCounter.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/HsBot/Callbacks/MessageCounter.hs b/HsBot/Callbacks/MessageCounter.hs
index e4f8f3d..e3d8648 100644
--- a/HsBot/Callbacks/MessageCounter.hs
+++ b/HsBot/Callbacks/MessageCounter.hs
@@ -7,6 +7,6 @@ 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)
+   let users' = users state
+   return (Env state { users = users' } conf)
 
-- 
cgit v1.2.3