From 9dda7dc1b9aa3118a4b320185264b5e6079d041a Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sat, 29 May 2010 22:38:18 +0200
Subject: Added signal handling and a better semantic for bot status.

---
 Hsbot/Types.hs | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'Hsbot/Types.hs')

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