equal
deleted
inserted
replaced
17 clientUID :: Int, |
17 clientUID :: Int, |
18 sendChan :: Chan [String], |
18 sendChan :: Chan [String], |
19 clientHandle :: Handle, |
19 clientHandle :: Handle, |
20 host :: String, |
20 host :: String, |
21 nick :: String, |
21 nick :: String, |
|
22 webPassword :: String, |
|
23 logonPassed :: Bool, |
22 clientProto :: Word16, |
24 clientProto :: Word16, |
23 roomID :: Int, |
25 roomID :: Int, |
24 isMaster :: Bool, |
26 isMaster :: Bool, |
25 isReady :: Bool, |
27 isReady :: Bool, |
26 forceQuit :: Bool, |
28 forceQuit :: Bool, |
135 "" |
137 "" |
136 "" |
138 "" |
137 ) |
139 ) |
138 |
140 |
139 data AccountInfo = |
141 data AccountInfo = |
140 HasAccount |
142 HasAccount String |
141 | LogonPassed |
|
142 | Guest |
143 | Guest |
143 |
144 |
144 data CoreMessage = |
145 data CoreMessage = |
145 Accept ClientInfo |
146 Accept ClientInfo |
146 | ClientMessage (Int, [String]) |
147 | ClientMessage (Int, [String]) |