equal
deleted
inserted
replaced
32 where |
32 where |
33 client = clients IntMap.! clID |
33 client = clients IntMap.! clID |
34 |
34 |
35 |
35 |
36 handleCmd_inRoom clID clients rooms ("CFG" : paramName : paramStrs) |
36 handleCmd_inRoom clID clients rooms ("CFG" : paramName : paramStrs) |
|
37 | null paramStrs = [ProtocolError "Empty config entry"] |
37 | isMaster client = |
38 | isMaster client = |
38 [ModifyRoom (\r -> r{params = Map.insert paramName paramStrs (params r)}), |
39 [ModifyRoom (\r -> r{params = Map.insert paramName paramStrs (params r)}), |
39 AnswerOthersInRoom ("CFG" : paramName : paramStrs)] |
40 AnswerOthersInRoom ("CFG" : paramName : paramStrs)] |
40 | otherwise = [ProtocolError "Not room master"] |
41 | otherwise = [ProtocolError "Not room master"] |
41 where |
42 where |