diff options
| author | Julien Dessaux | 2010-05-16 00:01:00 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2010-05-16 00:01:00 +0200 |
| commit | c1662ba7b982a8502dc9f32031b7cb518df7f60e (patch) | |
| tree | f00dbd9cb39bf0fbc20949105ea2b93d9e868070 /Hsbot/Message.hs | |
| parent | Added the quote module. (diff) | |
| download | hsbot-0.2.0.tar.gz hsbot-0.2.0.tar.bz2 hsbot-0.2.0.zip | |
Rewrote nearly everything!v0.2.0
* Rewrote the whole architecture to achieve extreme modularity
* Added the ability to build a multiprotocol bot
* Added cabal integration
* Added configuration handling the XMonad style
* Added configuration in ~/.hsbot
* Refactored many many named and functions
* Refactored data structures
* Cleaned a big bunch of stuff
Diffstat (limited to 'Hsbot/Message.hs')
| -rw-r--r-- | Hsbot/Message.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/Hsbot/Message.hs b/Hsbot/Message.hs new file mode 100644 index 0000000..7532211 --- /dev/null +++ b/Hsbot/Message.hs @@ -0,0 +1,15 @@ +module Hsbot.Message + ( BotMsg (..) + , Msg (..) + ) where + +-- | A hsbot message +data Msg = Msg + { msgType :: String -- the message type + , msgFrom :: String -- who issues it + , msgTo :: String -- who it is destinated to + , msgCmd :: String -- the message to be transfered + } deriving (Show) + +data BotMsg = InMsg Msg | OutMsg Msg | IntMsg Msg deriving (Show) + |