--- a/netserver/HWProto.hs Sun Oct 05 23:22:14 2008 +0000
+++ b/netserver/HWProto.hs Sun Oct 05 23:27:53 2008 +0000
@@ -7,8 +7,8 @@
import Maybe (fromMaybe, fromJust)
answerBadCmd = [(clientOnly, ["ERROR", "Bad command, state or incorrect parameter"])]
-answerQuit = [(clientOnly, ["QUIT"])]
-answerAbandoned = [(sameRoom, ["ROOMABANDONED"])]
+answerQuit = [(clientOnly, ["BYE"])]
+answerAbandoned = [(sameRoom, ["BYE"])]
answerQuitInform nick = [(sameRoom, ["QUIT", nick])]
answerNickChosen = [(clientOnly, ["ERROR", "The nick already chosen"])]
answerNickChooseAnother = [(clientOnly, ["WARNING", "Choose another nick"])]