diff -r 6af73e7f2438 -r 4e4f88a7bdf2 gameServer/HWProtoNEState.hs --- a/gameServer/HWProtoNEState.hs Thu May 06 15:26:14 2010 +0000 +++ b/gameServer/HWProtoNEState.hs Thu May 06 17:39:08 2010 +0000 @@ -11,6 +11,7 @@ handleCmd_NotEntered :: CmdHandler +{- handleCmd_NotEntered clID clients _ ["NICK", newNick] | not . null $ nick client = [ProtocolError "Nickname already chosen"] | haveSameNick = [AnswerThisClient ["WARNING", "Nickname already in use"], ByeClient ""] @@ -49,6 +50,6 @@ handleCmd_NotEntered clID clients _ ["DUMP"] = if isAdministrator (clients IntMap.! clID) then [Dump] else [] - +-} -handleCmd_NotEntered clID _ _ _ = [ProtocolError "Incorrect command (state: not entered)"] +handleCmd_NotEntered _ = return [ProtocolError "Incorrect command (state: not entered)"]