diff options
| author | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-05-15 17:07:44 +0000 |
|---|---|---|
| committer | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-05-15 17:07:44 +0000 |
| commit | c7205f32eefb263da5f44ceecdd00c3d70411e3f (patch) | |
| tree | 41dbe6dc2a03fd3904cf9718d62f073b19a998cb /HsBot/Callbacks/PrintMessages.hs | |
| parent | a6e084e174abd35878e623875234f445b5b74c35 (diff) | |
using generic CallbackFunction type in callbacks now
git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@63 9f8f72e9-4bf4-416e-b76e-7d4203597157
Diffstat (limited to 'HsBot/Callbacks/PrintMessages.hs')
| -rw-r--r-- | HsBot/Callbacks/PrintMessages.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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) ++ ": " |