equal
deleted
inserted
replaced
5 import Data.Word |
5 import Data.Word |
6 import Data.Char |
6 import Data.Char |
7 import Data.List |
7 import Data.List |
8 import Maybe (fromJust) |
8 import Maybe (fromJust) |
9 import qualified Data.Map as Map |
9 import qualified Data.Map as Map |
|
10 import Data.Time |
10 |
11 |
11 data ClientInfo = |
12 data ClientInfo = |
12 ClientInfo |
13 ClientInfo |
13 { |
14 { |
14 chan :: TChan [String], |
15 chan :: TChan [String], |
15 handle :: Handle, |
16 handle :: Handle, |
|
17 host :: String, |
|
18 connectTime :: UTCTime, |
16 nick :: String, |
19 nick :: String, |
17 protocol :: Word16, |
20 protocol :: Word16, |
18 room :: String, |
21 room :: String, |
19 isMaster :: Bool, |
22 isMaster :: Bool, |
20 isReady :: Bool, |
23 isReady :: Bool, |