gameServer/HWProtoLobbyState.hs
changeset 3540 b602a57ba0fb
parent 3536 7d99655130ff
child 3555 4c5ca656d1bb
equal deleted inserted replaced
3538:b11ac2677e42 3540:b602a57ba0fb
    76 
    76 
    77 
    77 
    78 handleCmd_lobby ["JOIN_ROOM", roomName, roomPassword] = do
    78 handleCmd_lobby ["JOIN_ROOM", roomName, roomPassword] = do
    79     (ci, irnc) <- ask
    79     (ci, irnc) <- ask
    80     let ris = allRooms irnc
    80     let ris = allRooms irnc
    81     let cl =  irnc `client` ci
    81     cl <- thisClient
    82     let maybeRI = find (\ri -> roomName == name (irnc `room` ri)) ris
    82     let maybeRI = find (\ri -> roomName == name (irnc `room` ri)) ris
    83     let jRI = fromJust maybeRI
    83     let jRI = fromJust maybeRI
    84     let jRoom = irnc `room` jRI
    84     let jRoom = irnc `room` jRI
    85     let jRoomClients = map (client irnc) $! roomClients irnc jRI -- no lazyness here!
    85     let jRoomClients = map (client irnc) $! roomClients irnc jRI -- no lazyness here!
    86     return $
    86     return $