From c7205f32eefb263da5f44ceecdd00c3d70411e3f Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sat, 15 May 2010 17:07:44 +0000
Subject: using generic CallbackFunction type in callbacks now

git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@63 9f8f72e9-4bf4-416e-b76e-7d4203597157
---
 HsBot/Callbacks/PrintMessages.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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

diff --git a/HsBot/Callbacks/PrintMessages.hs b/HsBot/Callbacks/PrintMessages.hs
index 0ce57c6..456d46d 100644
--- a/HsBot/Callbacks/PrintMessages.hs
+++ b/HsBot/Callbacks/PrintMessages.hs
@@ -1,9 +1,11 @@
 module HsBot.Callbacks.PrintMessages (printMessages) where
 
+import HsBot.Callbacks.Callback
+
 import HsBot.Base.Env
 import HsBot.Base.State
 
-printMessages :: String -> SendMessage -> Env -> IO Env
+printMessages :: CallbackFunction
 printMessages str sendMessage env@(Env state _) = do
    putStrLn $ (currentChannel state) ++ " "
       ++ (currentSender state) ++ ": "
-- 
cgit v1.2.3