From a12e4927728c9907537b221257c5e2914f5f1c48 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Mon, 24 May 2010 22:46:20 +0200
Subject: Implemented ircbot update messages.

---
 Hsbot/Irc/Types.hs | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

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

diff --git a/Hsbot/Irc/Types.hs b/Hsbot/Irc/Types.hs
index 78e663b..90bd728 100644
--- a/Hsbot/Irc/Types.hs
+++ b/Hsbot/Irc/Types.hs
@@ -21,17 +21,18 @@ type IrcBot = StateT IrcBotState IO
 
 -- | An Ircbot state
 data IrcBotState = IrcBotState
-    { ircBotStartTime            :: UTCTime                                 -- the bot's uptime
+    { ircBotStartTime            :: UTCTime                 -- the bot's uptime
     , ircBotPlugins              :: M.Map String (IrcPluginState, ThreadId) -- Loaded plugins
-    , ircBotCommands             :: M.Map String [String]                   -- Loaded plugins
-    , ircBotChan                 :: Chan IrcBotMsg                          -- The IrcBot's communication channel
-    , ircBotMasterChan           :: Chan BotMsg                             -- The Hsbot communication channel
-    , ircBotMyChan               :: Chan BotMsg                             -- The Hsbot communication channel
-    , ircBotServerState          :: IrcServerState                          -- The state of the IrcServer
-    , ircBotHandle               :: Handle                                  -- The server's socket/handle
-    , ircBotConfig               :: IrcConfig                               -- The starting configuration
-    , ircBotReaderThreadId       :: ThreadId
-    , ircBotMasterReaderThreadId :: ThreadId
+    , ircBotCommands             :: M.Map String [String]   -- Loaded plugins
+    , ircBotChan                 :: Chan IrcBotMsg          -- The IrcBot's communication channel
+    , ircBotMasterChan           :: Chan BotMsg             -- The Hsbot communication channel
+    , ircBotMyChan               :: Chan BotMsg             -- The Hsbot communication channel
+    , ircBotServerState          :: IrcServerState          -- The state of the IrcServer
+    , ircBotHandle               :: Handle                  -- The server's socket/handle
+    , 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
     }
 
 -- | The IrcServer monad
-- 
cgit v1.2.3