From d80cee1ecddeb75e54de767c35f04a9a004eed12 Mon Sep 17 00:00:00 2001 From: pb Date: Sat, 15 May 2010 17:26:52 +0000 Subject: * renamed HsBot.Callbacks.Callback into HsBot.Callbacks.Base * all callbacks are now stored in the datatype Callback. git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@66 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 a2782a8..18f6dba 100644 --- a/HsBot/Callbacks/MessageCounter.hs +++ b/HsBot/Callbacks/MessageCounter.hs @@ -1,6 +1,6 @@ -module HsBot.Callbacks.MessageCounter (messageCounter) where +module HsBot.Callbacks.MessageCounter (makeMessageCounter) where -import HsBot.Callbacks.Callback +import HsBot.Callbacks.Base import HsBot.Base.Env import HsBot.Base.State @@ -12,3 +12,5 @@ update user = user { userMessages = 1 + userMessages user } messageCounter :: CallbackFunction messageCounter str sendMessage (Env state conf) = do return (Env (stateUpdateUser state (currentSender state) update) conf) + +makeMessageCounter = Callback 0 messageCounter -- cgit v1.2.3