changeset 2116 | dec7ead2d178 |
parent 2104 | b2c50a7480ea |
child 2118 | 0ebcc98ebc1a |
--- a/gameServer/Actions.hs Sun May 24 19:49:10 2009 +0000 +++ b/gameServer/Actions.hs Mon May 25 15:24:27 2009 +0000 @@ -289,7 +289,7 @@ processAction (clID, serverInfo, clients, rooms) (CheckRegistered) = do - writeChan (dbQueries serverInfo) $ CheckAccount client + writeChan (dbQueries serverInfo) $ CheckAccount (clientUID client) (nick client) (host client) return (clID, serverInfo, clients, rooms) where client = clients ! clID