equal
deleted
inserted
replaced
62 let chans = map sendChan (cl : jRoomClients) |
62 let chans = map sendChan (cl : jRoomClients) |
63 let isBanned = host cl `elem` roomBansList jRoom |
63 let isBanned = host cl `elem` roomBansList jRoom |
64 return $ |
64 return $ |
65 if isNothing maybeRI then |
65 if isNothing maybeRI then |
66 [Warning $ loc "No such room"] |
66 [Warning $ loc "No such room"] |
67 else if not sameProto then |
67 else if (not sameProto) && (not $ isAdministrator cl) then |
68 [Warning $ loc "Room version incompatible to your hedgewars version"] |
68 [Warning $ loc "Room version incompatible to your hedgewars version"] |
69 else if isRestrictedJoins jRoom then |
69 else if isRestrictedJoins jRoom then |
70 [Warning $ loc "Joining restricted"] |
70 [Warning $ loc "Joining restricted"] |
71 else if isRegisteredOnly jRoom && (B.null . webPassword $ cl) && not (isAdministrator cl) then |
71 else if isRegisteredOnly jRoom && (B.null . webPassword $ cl) && not (isAdministrator cl) then |
72 [Warning $ loc "Registered users only"] |
72 [Warning $ loc "Registered users only"] |