equal
deleted
inserted
replaced
81 else if roomPassword /= password jRoom then |
81 else if roomPassword /= password jRoom then |
82 [NoticeMessage WrongPassword] |
82 [NoticeMessage WrongPassword] |
83 else |
83 else |
84 ( |
84 ( |
85 MoveToRoom jRI |
85 MoveToRoom jRI |
86 : ModifyClient (\c -> c{isJoinedMidGame = isJust $ gameInfo jRoom}) |
86 : ModifyClient (\c -> c{isJoinedMidGame = isJust $ gameInfo jRoom, teamsInGame = fromIntegral $ length clTeams}) |
87 : AnswerClients chans ["CLIENT_FLAGS", "-r", nick cl] |
87 : AnswerClients chans ["CLIENT_FLAGS", "-r", nick cl] |
88 : [(AnswerClients [sendChan cl] $ "JOINED" : nicks) | not $ null nicks] |
88 : [(AnswerClients [sendChan cl] $ "JOINED" : nicks) | not $ null nicks] |
89 ) |
89 ) |
90 ++ [AnswerClients [sendChan cl] ["CLIENT_FLAGS", "+h", nick $ fromJust owner] | isJust owner] |
90 ++ [AnswerClients [sendChan cl] ["CLIENT_FLAGS", "+h", nick $ fromJust owner] | isJust owner] |
91 ++ [sendStateFlags cl jRoomClients | not $ null jRoomClients] |
91 ++ [sendStateFlags cl jRoomClients | not $ null jRoomClients] |