# HG changeset patch
# User unc0rr
# Date 1294673319 -10800
# Node ID 4eb51a884f118a89e285c2eceea897be9e73e4b5
# Parent  7e3be7d7eeda5ada3cd45cbc575f47ae1326ed33
Fix check for unique nick

diff -r 7e3be7d7eeda -r 4eb51a884f11 gameServer/HWProtoNEState.hs
--- a/gameServer/HWProtoNEState.hs	Mon Jan 10 18:14:05 2011 +0300
+++ b/gameServer/HWProtoNEState.hs	Mon Jan 10 18:28:39 2011 +0300
@@ -29,7 +29,7 @@
                     AnswerClients [sendChan cl] ["NICK", newNick] :
                     [CheckRegistered | clientProto cl /= 0]
     where
-    haveSameNick irnc clNick = isJust $ find (\cl -> newNick == clNick) $ map (client irnc) $ allClients irnc
+    haveSameNick irnc clNick = isJust $ find (\cl -> newNick == cl) $ map (nick . client irnc) $ allClients irnc
 
 handleCmd_NotEntered ["PROTO", protoNum] = do
     (ci, irnc) <- ask