From c506c58e925383a6a19c82550d1bb458bc504f99 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Fri, 28 May 2010 22:39:45 +0200
Subject: Cleaned further the bot updates handling.

---
 Hsbot/Irc/Core.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'Hsbot/Irc/Core.hs')

diff --git a/Hsbot/Irc/Core.hs b/Hsbot/Irc/Core.hs
index b1aee02..2fb8386 100644
--- a/Hsbot/Irc/Core.hs
+++ b/Hsbot/Irc/Core.hs
@@ -145,11 +145,8 @@ reportUpdate :: IrcBot ()
 reportUpdate = do
     ircbot <- get
     let masterChan = ircBotMasterChan ircbot
-        msg = IntMsg $ Msg { msgType  = "UPDATE"
-                           , msgFrom  = ircConfigName $ ircBotConfig ircbot
-                           , msgTo    = "CORE"
-                           , msgStuff = show $ ircBotResumeData ircbot
-                           }
+        msg = UpdMsg $ ResMsg { resMsgFrom = ircConfigName $ ircBotConfig ircbot
+                              , resMsgData = ircBotResumeData ircbot }
     liftIO $ writeChan masterChan msg
 
 -- | Process a reboot command
-- 
cgit v1.2.3