From d80cee1ecddeb75e54de767c35f04a9a004eed12 Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
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/PrintMessages.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/HsBot/Callbacks/PrintMessages.hs b/HsBot/Callbacks/PrintMessages.hs
index 456d46d..2674aa9 100644
--- a/HsBot/Callbacks/PrintMessages.hs
+++ b/HsBot/Callbacks/PrintMessages.hs
@@ -1,6 +1,6 @@
-module HsBot.Callbacks.PrintMessages (printMessages) where
+module HsBot.Callbacks.PrintMessages (makePrintMessages) where
 
-import HsBot.Callbacks.Callback
+import HsBot.Callbacks.Base
 
 import HsBot.Base.Env
 import HsBot.Base.State
@@ -12,3 +12,4 @@ printMessages str sendMessage env@(Env state _) = do
       ++ str
    return (env)
 
+makePrintMessages = Callback 0 printMessages
-- 
cgit v1.2.3