From 1d6e13ef4e50ae53c52b2ce289881a071ecf942e Mon Sep 17 00:00:00 2001 From: pb Date: Sat, 15 May 2010 16:01:30 +0000 Subject: added the PrintMessages callback. git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@58 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- HsBot/Callbacks/PrintMessages.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 HsBot/Callbacks/PrintMessages.hs (limited to 'HsBot/Callbacks/PrintMessages.hs') diff --git a/HsBot/Callbacks/PrintMessages.hs b/HsBot/Callbacks/PrintMessages.hs new file mode 100644 index 0000000..0ce57c6 --- /dev/null +++ b/HsBot/Callbacks/PrintMessages.hs @@ -0,0 +1,12 @@ +module HsBot.Callbacks.PrintMessages (printMessages) where + +import HsBot.Base.Env +import HsBot.Base.State + +printMessages :: String -> SendMessage -> Env -> IO Env +printMessages str sendMessage env@(Env state _) = do + putStrLn $ (currentChannel state) ++ " " + ++ (currentSender state) ++ ": " + ++ str + return (env) + -- cgit v1.2.3