blob: 1bb258c8ba77c9273ca897f7391551c6828678c0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
module Hirc.Types where
data Message =
Message {
m_prefix :: Maybe Prefix,
m_command :: Command,
m_params :: [Param]
}
deriving Show
type Param = String
data Prefix =
Prefix {
p_name :: String,
p_user :: Maybe String,
p_host :: Maybe String
}
deriving Show
data Command =
PRIVMSG Receiver [Receiver] String |
UnknownCommand String
deriving Show
type Receiver = String
|