From a6e084e174abd35878e623875234f445b5b74c35 Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sat, 15 May 2010 16:53:31 +0000
Subject: StoreMessages callback is now registered

git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@62 9f8f72e9-4bf4-416e-b76e-7d4203597157
---
 HsBot/Callbacks.hs | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'HsBot/Callbacks.hs')

diff --git a/HsBot/Callbacks.hs b/HsBot/Callbacks.hs
index 1db8f36..763289b 100644
--- a/HsBot/Callbacks.hs
+++ b/HsBot/Callbacks.hs
@@ -3,11 +3,17 @@ module HsBot.Callbacks (callbacksRun) where
 import HsBot.Base.Env
 import HsBot.Base.State
 
-import HsBot.Callbacks.Dummy
-import HsBot.Callbacks.PrintMessages
 import HsBot.Callbacks.MessageCounter
+import HsBot.Callbacks.PrintMessages
+import HsBot.Callbacks.StoreMessages
+import HsBot.Callbacks.Dummy
 
-registeredCallbacks = [dummy, printMessages, messageCounter]
+registeredCallbacks = [
+  messageCounter,
+  printMessages, 
+  storeMessages, 
+  dummy,
+  ]
 
 callbacksRun :: String -> SendMessage -> Env -> IO Env
 callbacksRun str sendMessage env@(Env state _) 
-- 
cgit v1.2.3