changeset 10212 | 5fb3bb2de9d2 |
parent 10194 | 7025bd3c3131 |
child 10460 | 8dcea9087d75 |
10211:f4c51ab8f46d | 10212:5fb3bb2de9d2 |
---|---|
5 import Data.List |
5 import Data.List |
6 |
6 |
7 import RoomsAndClients |
7 import RoomsAndClients |
8 import CoreTypes |
8 import CoreTypes |
9 |
9 |
10 |
|
11 type CmdHandler = [B.ByteString] -> Reader (ClientIndex, IRnC) [Action] |
|
10 |
12 |
11 thisClient :: Reader (ClientIndex, IRnC) ClientInfo |
13 thisClient :: Reader (ClientIndex, IRnC) ClientInfo |
12 thisClient = do |
14 thisClient = do |
13 (ci, rnc) <- ask |
15 (ci, rnc) <- ask |
14 return $ rnc `client` ci |
16 return $ rnc `client` ci |