1 files changed, 12 insertions, 0 deletions
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)
+