adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Add the IrcMsg as an optional parameter for an internal command.

Browse source
This commit is contained in:
Julien Dessaux 2010-04-21 22:39:03 +02:00
parent 455b18bc10
commit 8551832bd2
4 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Hsbot/Types.hs
View file

@ -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)