equal
deleted
inserted
replaced
26 (ci, rnc) <- ask |
26 (ci, rnc) <- ask |
27 return $ [sendChan (rnc `client` ci)] |
27 return $ [sendChan (rnc `client` ci)] |
28 |
28 |
29 answerClient :: [B.ByteString] -> Reader (ClientIndex, IRnC) [Action] |
29 answerClient :: [B.ByteString] -> Reader (ClientIndex, IRnC) [Action] |
30 answerClient msg = thisClientChans >>= return . (: []) . flip AnswerClients msg |
30 answerClient msg = thisClientChans >>= return . (: []) . flip AnswerClients msg |
|
31 |
|
32 allRoomInfos :: Reader (a, IRnC) [RoomInfo] |
|
33 allRoomInfos = liftM ((\irnc -> map (room irnc) $ allRooms irnc) . snd) ask |