netserver/HWProto.hs
changeset 1322 c624b04699fb
parent 1321 d7dc4e86201e
child 1323 d166f9069c2b
--- a/netserver/HWProto.hs	Wed Oct 08 18:25:08 2008 +0000
+++ b/netserver/HWProto.hs	Wed Oct 08 18:29:16 2008 +0000
@@ -112,18 +112,17 @@
 
 -- 'inRoom' clients state command handlers
 handleCmd_inRoom :: CmdHandler
-handleCmd_inRoom client _ _ ["CHAT_STRING", _, msg] =
+handleCmd_inRoom client _ _ ["CHAT_STRING", msg] =
 	(noChangeClients, noChangeRooms, answerChatString (nick client) msg)
 
 handleCmd_inRoom client _ rooms ("CONFIG_PARAM":paramName:paramStrs) =
 	if isMaster client then
-		(noChangeClients, modifyRoom clRoom{params = Map.insert paramName paramStrs (params room)}, answerConfigParam paramName paramStrs)
+		(noChangeClients, modifyRoom clRoom{params = Map.insert paramName paramStrs (params clRoom)}, answerConfigParam paramName paramStrs)
 	else
 		(noChangeClients, noChangeRooms, answerNotMaster)
 	where
 		clRoom = roomByName (room client) rooms
 
-
 handleCmd_inRoom client _ _ ("ADDTEAM" : name : color : grave : fort : difStr : hhsInfo)
 	| length hhsInfo == 16 = (noChangeClients, noChangeRooms, answerBadCmd)