equal
deleted
inserted
replaced
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 $ |