blob: 753221122ae65774432365c8a0376e917362fed6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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)
|
