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