diff options
author | Julien Dessaux | 2010-05-25 21:54:33 +0200 |
---|---|---|
committer | Julien Dessaux | 2010-05-25 22:07:58 +0200 |
commit | 451564ef5b13302912080d58a9aee6ff0968f70e (patch) | |
tree | 482d14d297d90c2696f98af39cc0cf1712d90bdd /Hsbot/Types.hs | |
parent | Implemented update message handling in the bot's core. (diff) | |
download | hsbot-451564ef5b13302912080d58a9aee6ff0968f70e.tar.gz hsbot-451564ef5b13302912080d58a9aee6ff0968f70e.tar.bz2 hsbot-451564ef5b13302912080d58a9aee6ff0968f70e.zip |
Cleaned that ugly update message handling and added a reboot command to the ircbot.
Diffstat (limited to 'Hsbot/Types.hs')
-rw-r--r-- | Hsbot/Types.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Hsbot/Types.hs b/Hsbot/Types.hs index 3afbff5..9ea7ff6 100644 --- a/Hsbot/Types.hs +++ b/Hsbot/Types.hs @@ -24,7 +24,7 @@ data BotState = BotState , botPlugins :: M.Map String (PluginState, ThreadId) -- Loaded plugins , botChan :: Chan BotMsg -- the bot's communication channel , botConfig :: Config -- the bot's starting config - , botUpdateChan :: Chan String -- the bot's chan to report updates on + , botMVar :: MVar String -- the place where to put resume data , botResumeData :: M.Map String String -- the necessary data to resume the bot's operations on reboot } @@ -40,10 +40,10 @@ data PluginState = PluginState -- | A hsbot message data Msg = Msg - { msgType :: String -- the message type - , msgFrom :: String -- who issues it - , msgTo :: String -- who it is destinated to - , msgCmd :: String -- the message to be transfered + { msgType :: String -- the message type + , msgFrom :: String -- who issues it + , msgTo :: String -- who it is destinated to + , msgStuff :: String -- the message to be transfered } deriving (Show) data BotMsg = InMsg Msg | OutMsg Msg | IntMsg Msg deriving (Show) |