diff options
author | Julien Dessaux | 2010-05-28 22:39:45 +0200 |
---|---|---|
committer | Julien Dessaux | 2010-05-28 22:39:45 +0200 |
commit | c506c58e925383a6a19c82550d1bb458bc504f99 (patch) | |
tree | 5ff9e1beefd8058b4e791b135f2aaaf641fe2d4b /Hsbot/Irc/Core.hs | |
parent | Cleaned that ugly update message handling and added a reboot command to the i... (diff) | |
download | hsbot-c506c58e925383a6a19c82550d1bb458bc504f99.tar.gz hsbot-c506c58e925383a6a19c82550d1bb458bc504f99.tar.bz2 hsbot-c506c58e925383a6a19c82550d1bb458bc504f99.zip |
Cleaned further the bot updates handling.
Diffstat (limited to '')
-rw-r--r-- | Hsbot/Irc/Core.hs | 7 |
1 files changed, 2 insertions, 5 deletions
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 |