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