diff -r 91f889289a47 -r 899b4e3d350a gameServer/HWProtoNEState.hs --- a/gameServer/HWProtoNEState.hs Thu Jan 20 01:49:20 2011 +0100 +++ b/gameServer/HWProtoNEState.hs Thu Jan 20 21:32:39 2011 +0300 @@ -13,7 +13,7 @@ handleCmd_NotEntered clID clients _ ["NICK", newNick] | not . null $ nick client = [ProtocolError "Nickname already chosen"] - | haveSameNick = [AnswerThisClient ["WARNING", "Nickname already in use"], ByeClient ""] + | haveSameNick = [AnswerThisClient ["WARNING", "Nickname already in use"], ByeClient "Nickname already in use"] | illegalName newNick = [ByeClient "Illegal nickname"] | otherwise = ModifyClient (\c -> c{nick = newNick}) :