equal
deleted
inserted
replaced
98 processAction (clID, serverInfo, clients, rooms) SendServerMessage = do |
98 processAction (clID, serverInfo, clients, rooms) SendServerMessage = do |
99 writeChan (sendChan $ clients ! clID) $ ["SERVER_MESSAGE", message serverInfo] |
99 writeChan (sendChan $ clients ! clID) $ ["SERVER_MESSAGE", message serverInfo] |
100 return (clID, serverInfo, clients, rooms) |
100 return (clID, serverInfo, clients, rooms) |
101 where |
101 where |
102 client = clients ! clID |
102 client = clients ! clID |
103 message = if clientProto client < 25 then |
103 message = if clientProto client < 27 then |
104 serverMessageForOldVersions |
104 serverMessageForOldVersions |
105 else |
105 else |
106 serverMessage |
106 serverMessage |
107 |
107 |
108 |
108 |