From 502eae3f286cca6a1843ed795ec20fbc3abccc5d Mon Sep 17 00:00:00 2001 From: pb Date: Sat, 15 May 2010 16:49:57 +0000 Subject: added the stateUpdateUser function to State.hs git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@60 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- HsBot/Callbacks/MessageCounter.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'HsBot/Callbacks/MessageCounter.hs') diff --git a/HsBot/Callbacks/MessageCounter.hs b/HsBot/Callbacks/MessageCounter.hs index 2b5482e..1f12e62 100644 --- a/HsBot/Callbacks/MessageCounter.hs +++ b/HsBot/Callbacks/MessageCounter.hs @@ -5,9 +5,8 @@ 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 state { users = users' } conf) - where - update user = user { userMessages = 1 + userMessages user } - users' = usersUpdate (currentSender state) (users state) update + return (Env (stateUpdateUser state (currentSender state) update) conf) -- cgit v1.2.3