equal
deleted
inserted
replaced
101 where |
101 where |
102 client = clients ! clID |
102 client = clients ! clID |
103 message = if clientProto client < 25 then |
103 message = if clientProto client < 25 then |
104 serverMessageForOldVersions |
104 serverMessageForOldVersions |
105 else |
105 else |
106 serverMessageForOldVersions |
106 serverMessage |
107 |
107 |
108 |
108 |
109 processAction (clID, serverInfo, clients, rooms) (ProtocolError msg) = do |
109 processAction (clID, serverInfo, clients, rooms) (ProtocolError msg) = do |
110 writeChan (sendChan $ clients ! clID) ["ERROR", msg] |
110 writeChan (sendChan $ clients ! clID) ["ERROR", msg] |
111 return (clID, serverInfo, clients, rooms) |
111 return (clID, serverInfo, clients, rooms) |