summaryrefslogtreecommitdiff
path: root/Hsbot/Irc
diff options
context:
space:
mode:
authorJulien Dessaux2010-05-28 22:39:45 +0200
committerJulien Dessaux2010-05-28 22:39:45 +0200
commitc506c58e925383a6a19c82550d1bb458bc504f99 (patch)
tree5ff9e1beefd8058b4e791b135f2aaaf641fe2d4b /Hsbot/Irc
parentCleaned that ugly update message handling and added a reboot command to the i... (diff)
downloadhsbot-c506c58e925383a6a19c82550d1bb458bc504f99.tar.gz
hsbot-c506c58e925383a6a19c82550d1bb458bc504f99.tar.bz2
hsbot-c506c58e925383a6a19c82550d1bb458bc504f99.zip
Cleaned further the bot updates handling.
Diffstat (limited to 'Hsbot/Irc')
-rw-r--r--Hsbot/Irc/Core.hs7
-rw-r--r--Hsbot/Irc/Types.hs2
2 files changed, 3 insertions, 6 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
diff --git a/Hsbot/Irc/Types.hs b/Hsbot/Irc/Types.hs
index 440de64..c9be251 100644
--- a/Hsbot/Irc/Types.hs
+++ b/Hsbot/Irc/Types.hs
@@ -32,7 +32,7 @@ data IrcBotState = IrcBotState
, ircBotConfig :: IrcConfig -- The starting configuration
, ircBotReaderThreadId :: ThreadId -- the thread that process inputs from the socket
, ircBotMasterReaderThreadId :: ThreadId -- the thread that process inputs from the master bot
- , ircBotResumeData :: M.Map String String -- the necessary data to resume the bot's operations on reboot
+ , ircBotResumeData :: ResumeData -- the necessary data to resume the bot's operations on reboot
}
-- | The IrcServer monad