From 8551832bd29508f36b6820e19d4af0525b1cba50 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Wed, 21 Apr 2010 22:39:03 +0200
Subject: Add the IrcMsg as an optional parameter for an internal command.

---
 Hsbot/Types.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'Hsbot/Types.hs')

diff --git a/Hsbot/Types.hs b/Hsbot/Types.hs
index 6b85af5..436bbdf 100644
--- a/Hsbot/Types.hs
+++ b/Hsbot/Types.hs
@@ -90,10 +90,11 @@ data IrcMsg = IrcMsg
 
 -- | An internal command
 data IntCmd = IntCmd
-    { intCmdCmd  :: String -- the internal command
-    , intCmdFrom :: String -- who issues it
-    , intCmdTo   :: String -- who it is destinated to
-    , intCmdMsg  :: String -- the IrcMsg associated with the command
+    { intCmdCmd    :: String       -- the internal command
+    , intCmdFrom   :: String       -- who issues it
+    , intCmdTo     :: String       -- who it is destinated to
+    , intCmdMsg    :: String       -- the message to be transfered
+    , intCmdBotMsg :: Maybe IrcMsg -- An IrcMsg attached to the command
     } deriving (Show)
 
 data BotMsg = InputMsg IrcMsg | OutputMsg IrcMsg | InternalCmd IntCmd deriving (Show)
-- 
cgit v1.2.3