equal
deleted
inserted
replaced
44 else |
44 else |
45 do |
45 do |
46 debugM "Clients" "Message from dead client" |
46 debugM "Clients" "Message from dead client" |
47 return (serverInfo, clients, rooms) |
47 return (serverInfo, clients, rooms) |
48 |
48 |
49 ClientAccountInfo clID info -> |
49 ClientAccountInfo (clID, info) -> |
50 if clID `IntMap.member` clients then |
50 if clID `IntMap.member` clients then |
51 liftM firstAway $ processAction |
51 liftM firstAway $ processAction |
52 (clID, serverInfo, clients, rooms) |
52 (clID, serverInfo, clients, rooms) |
53 (ProcessAccountInfo info) |
53 (ProcessAccountInfo info) |
54 else |
54 else |