* 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

1 files changed, 4 insertions, 2 deletions

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