Cleaned further the bot updates handling.

2010-05-28 22:39:45 +02:00 · 2010-05-28 22:39:45 +02:00 · c506c58e92
commit c506c58e92
parent 451564ef5b
5 changed files with 53 additions and 49 deletions
--- 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