2 files changed, 20 insertions, 0 deletions
diff --git a/HsBot/Callbacks/Dummy.hs b/HsBot/Callbacks/Dummy.hs
new file mode 100644
index 0000000..071a9f4
--- /dev/null
+++ b/HsBot/Callbacks/Dummy.hs
@@ -0,0 +1,8 @@
+module HsBot.Callbacks.Dummy (dummy) where
+
+import HsBot.Base.Env
+import HsBot.Base.State
+
+dummy :: String -> SendMessage -> Env -> IO Env
+dummy str sendMessage env@(Env state _) = return (env)
+
diff --git a/HsBot/Callbacks/MessageCounter.hs b/HsBot/Callbacks/MessageCounter.hs
new file mode 100644
index 0000000..e4f8f3d
--- /dev/null
+++ b/HsBot/Callbacks/MessageCounter.hs
@@ -0,0 +1,12 @@
+module HsBot.Callbacks.MessageCounter (messageCounter) where
+
+import HsBot.Base.Env
+import HsBot.Base.State
+
+import HsBot.IRC.User
+
+messageCounter :: String -> SendMessage -> Env -> IO Env
+messageCounter str sendMessage (Env state conf) = do
+	let (user, users') = userGet (currentSender state) (users state)
+	return (Env state { users = users' } conf)
+