diff -r d7dc4e86201e -r c624b04699fb netserver/HWProto.hs --- 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)