4 files changed, 16 insertions, 4 deletions
diff --git a/HsBot/Base/State.hs b/HsBot/Base/State.hs
index 2547501..10395bb 100644
--- a/HsBot/Base/State.hs
+++ b/HsBot/Base/State.hs
@@ -11,8 +11,8 @@ import List
 import HsBot.IRC.User
 
 data State = State { 
-		isReady :: Bool,
-		currentSender :: String,
+      isReady :: Bool,
+      currentSender :: String,
       currentChannel :: String, 
       line :: String, 
       users :: [User]
diff --git a/HsBot/Callbacks.hs b/HsBot/Callbacks.hs
index d15d89b..1db8f36 100644
--- a/HsBot/Callbacks.hs
+++ b/HsBot/Callbacks.hs
@@ -4,9 +4,10 @@ import HsBot.Base.Env
 import HsBot.Base.State
 
 import HsBot.Callbacks.Dummy
+import HsBot.Callbacks.PrintMessages
 import HsBot.Callbacks.MessageCounter
 
-registeredCallbacks = [dummy, messageCounter]
+registeredCallbacks = [dummy, printMessages, messageCounter]
 
 callbacksRun :: String -> SendMessage -> Env -> IO Env
 callbacksRun str sendMessage env@(Env state _) 
diff --git a/HsBot/Callbacks/MessageCounter.hs b/HsBot/Callbacks/MessageCounter.hs
index e3d8648..f285ec6 100644
--- a/HsBot/Callbacks/MessageCounter.hs
+++ b/HsBot/Callbacks/MessageCounter.hs
@@ -9,4 +9,3 @@ messageCounter :: String -> SendMessage -> Env -> IO Env
 messageCounter str sendMessage (Env state conf) = do
    let users' = users state
    return (Env state { users = users' } conf)
-
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)
+