equal
deleted
inserted
replaced
114 processAction (clID, serverInfo, clients, rooms) SendServerMessage = do |
114 processAction (clID, serverInfo, clients, rooms) SendServerMessage = do |
115 writeChan (sendChan $ clients ! clID) ["SERVER_MESSAGE", message serverInfo] |
115 writeChan (sendChan $ clients ! clID) ["SERVER_MESSAGE", message serverInfo] |
116 return (clID, serverInfo, clients, rooms) |
116 return (clID, serverInfo, clients, rooms) |
117 where |
117 where |
118 client = clients ! clID |
118 client = clients ! clID |
119 message = if clientProto client < 27 then |
119 message = if clientProto client < 29 then |
120 serverMessageForOldVersions |
120 serverMessageForOldVersions |
121 else |
121 else |
122 serverMessage |
122 serverMessage |
123 |
123 |
124 |
124 |