equal
deleted
inserted
replaced
287 client = clients ! clID |
287 client = clients ! clID |
288 rmTeamMsg = toEngineMsg $ 'F' : teamName |
288 rmTeamMsg = toEngineMsg $ 'F' : teamName |
289 |
289 |
290 |
290 |
291 processAction (clID, serverInfo, clients, rooms) (CheckRegistered) = do |
291 processAction (clID, serverInfo, clients, rooms) (CheckRegistered) = do |
292 writeChan (dbQueries serverInfo) $ CheckAccount client |
292 writeChan (dbQueries serverInfo) $ CheckAccount (clientUID client) (nick client) (host client) |
293 return (clID, serverInfo, clients, rooms) |
293 return (clID, serverInfo, clients, rooms) |
294 where |
294 where |
295 client = clients ! clID |
295 client = clients ! clID |
296 |
296 |
297 |
297 |