blob: 83d4c089becf70dbb73d3bed51e04e8bdab68859 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
module Hsbot.Message
( BotMsg (..)
, Msg (..)
, processInternalMessage
) where
import Hsbot.PluginUtils
-- | 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)
|