diff options
author | Julien Dessaux | 2010-05-29 22:38:18 +0200 |
---|---|---|
committer | Julien Dessaux | 2010-05-29 23:55:12 +0200 |
commit | 9dda7dc1b9aa3118a4b320185264b5e6079d041a (patch) | |
tree | 17b208583acf0ce670b6326e0b2eda992f03cfb4 /Hsbot/Types.hs | |
parent | Rationalized the way bot configs are handled. (diff) | |
download | hsbot-9dda7dc1b9aa3118a4b320185264b5e6079d041a.tar.gz hsbot-9dda7dc1b9aa3118a4b320185264b5e6079d041a.tar.bz2 hsbot-9dda7dc1b9aa3118a4b320185264b5e6079d041a.zip |
Added signal handling and a better semantic for bot status.
Diffstat (limited to 'Hsbot/Types.hs')
-rw-r--r-- | Hsbot/Types.hs | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/Hsbot/Types.hs b/Hsbot/Types.hs index 4052e58..009390d 100644 --- a/Hsbot/Types.hs +++ b/Hsbot/Types.hs @@ -4,9 +4,11 @@ module Hsbot.Types , BotResumeData , BotState (..) , BotStatus (..) + , ExitMsg (..) , Msg (..) , Plugin , PluginState (..) + , RebootMsg (..) , ResumeData , ResumeMsg (..) ) where @@ -61,5 +63,13 @@ data ResumeMsg = ResMsg , resMsgData :: ResumeData } deriving (Show) -data BotMsg = InMsg Msg | OutMsg Msg | IntMsg Msg | UpdMsg ResumeMsg deriving (Show) +data RebootMsg = RebootMsg + { rebMsgFrom :: String + } deriving (Show) + +data ExitMsg = ExitMsg + { exiMsgFrom :: String + } deriving (Show) + +data BotMsg = IntMsg Msg | UpdMsg ResumeMsg | RebMsg RebootMsg | ExiMsg ExitMsg deriving (Show) |