diff options
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) ++ ": " |