equal
deleted
inserted
replaced
9 |
9 |
10 thisClient :: Reader (ClientIndex, IRnC) ClientInfo |
10 thisClient :: Reader (ClientIndex, IRnC) ClientInfo |
11 thisClient = do |
11 thisClient = do |
12 (ci, rnc) <- ask |
12 (ci, rnc) <- ask |
13 return $ rnc `client` ci |
13 return $ rnc `client` ci |
|
14 |
|
15 thisRoom :: Reader (ClientIndex, IRnC) RoomInfo |
|
16 thisRoom = do |
|
17 (ci, rnc) <- ask |
|
18 let ri = clientRoom rnc ci |
|
19 return $ rnc `room` ri |
14 |
20 |
15 clientNick :: Reader (ClientIndex, IRnC) B.ByteString |
21 clientNick :: Reader (ClientIndex, IRnC) B.ByteString |
16 clientNick = liftM nick thisClient |
22 clientNick = liftM nick thisClient |
17 |
23 |
18 roomOthersChans :: Reader (ClientIndex, IRnC) [ClientChan] |
24 roomOthersChans :: Reader (ClientIndex, IRnC) [ClientChan] |