author | nemo |
Fri, 25 Jun 2010 22:59:31 -0400 | |
changeset 3558 | 86a4437e614b |
parent 3543 | d84a93b985c1 |
child 3568 | ae89cf0735dc |
permissions | -rw-r--r-- |
3435 | 1 |
module HandlerUtils where |
2 |
||
3 |
import Control.Monad.Reader |
|
3500
af8390d807d6
Use sockets instead of handles, use bytestrings instead of strings
unc0rr
parents:
3435
diff
changeset
|
4 |
import qualified Data.ByteString.Char8 as B |
3435 | 5 |
|
6 |
import RoomsAndClients |
|
7 |
import CoreTypes |
|
8 |
import Actions |
|
9 |
||
10 |
thisClient :: Reader (ClientIndex, IRnC) ClientInfo |
|
11 |
thisClient = do |
|
12 |
(ci, rnc) <- ask |
|
13 |
return $ rnc `client` ci |
|
14 |
||
3500
af8390d807d6
Use sockets instead of handles, use bytestrings instead of strings
unc0rr
parents:
3435
diff
changeset
|
15 |
clientNick :: Reader (ClientIndex, IRnC) B.ByteString |
3435 | 16 |
clientNick = liftM nick thisClient |
17 |
||
18 |
roomOthersChans :: Reader (ClientIndex, IRnC) [ClientChan] |
|
19 |
roomOthersChans = do |
|
20 |
(ci, rnc) <- ask |
|
21 |
let ri = clientRoom rnc ci |
|
3542 | 22 |
return $ map (sendChan . client rnc) $ filter (/= ci) (roomClients rnc ri) |
3435 | 23 |
|
3543 | 24 |
roomClientsChans :: Reader (ClientIndex, IRnC) [ClientChan] |
25 |
roomClientsChans = do |
|
26 |
(ci, rnc) <- ask |
|
27 |
let ri = clientRoom rnc ci |
|
28 |
return $ map (sendChan . client rnc) (roomClients rnc ri) |
|
29 |
||
3435 | 30 |
thisClientChans :: Reader (ClientIndex, IRnC) [ClientChan] |
31 |
thisClientChans = do |
|
32 |
(ci, rnc) <- ask |
|
33 |
return $ [sendChan (rnc `client` ci)] |
|
34 |
||
3500
af8390d807d6
Use sockets instead of handles, use bytestrings instead of strings
unc0rr
parents:
3435
diff
changeset
|
35 |
answerClient :: [B.ByteString] -> Reader (ClientIndex, IRnC) [Action] |
3435 | 36 |
answerClient msg = thisClientChans >>= return . (: []) . flip AnswerClients msg |
3501 | 37 |
|
38 |
allRoomInfos :: Reader (a, IRnC) [RoomInfo] |
|
39 |
allRoomInfos = liftM ((\irnc -> map (room irnc) $ allRooms irnc) . snd) ask |