equal
deleted
inserted
replaced
28 sameProtoRooms = filter (\r -> (roomProto r == protocol) && not (isRestrictedJoins r)) roomsList |
28 sameProtoRooms = filter (\r -> (roomProto r == protocol) && not (isRestrictedJoins r)) roomsList |
29 roomsList = IntMap.elems rooms |
29 roomsList = IntMap.elems rooms |
30 protocol = clientProto client |
30 protocol = clientProto client |
31 client = clients IntMap.! clID |
31 client = clients IntMap.! clID |
32 roomInfo room |
32 roomInfo room |
33 | clientProto client < 30 = [ |
33 | clientProto client < 28 = [ |
34 name room, |
34 name room, |
35 show (playersIn room) ++ "(" ++ show (length $ teams room) ++ ")", |
35 show (playersIn room) ++ "(" ++ show (length $ teams room) ++ ")", |
36 show $ gameinprogress room |
36 show $ gameinprogress room |
37 ] |
37 ] |
38 | otherwise = [ |
38 | otherwise = [ |