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 ++-----
 Hsbot/Irc/Types.hs | 2 +-
 2 files changed, 3 insertions(+), 6 deletions(-)

(limited to 'Hsbot/Irc')

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
-- 
cgit v1.2.3