diff options
Diffstat (limited to 'Hsbot/Types.hs')
-rw-r--r-- | Hsbot/Types.hs | 9 |
1 files changed, 5 insertions, 4 deletions
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) |