--- a/gameServer/HWProtoInRoomState.hs Mon Nov 17 15:25:24 2014 +0100
+++ b/gameServer/HWProtoInRoomState.hs Tue Nov 18 00:32:39 2014 +0300
@@ -285,7 +285,7 @@
handleCmd_inRoom ["ROUNDFINISHED", "1"]
handleCmd_inRoom ["TOGGLE_RESTRICT_JOINS"] = roomAdminOnly $
- return [ModifyRoom (\r -> r{isRestrictedJoins = not $ isRestrictedJoins r})]
+ return [ModifyRoom (\r -> r{isRestrictedJoins = not $ isRestrictedJoins r}), SendUpdateOnThisRoom]
handleCmd_inRoom ["TOGGLE_RESTRICT_TEAMS"] = roomAdminOnly $
@@ -293,7 +293,7 @@
handleCmd_inRoom ["TOGGLE_REGISTERED_ONLY"] = roomAdminOnly $
- return [ModifyRoom (\r -> r{isRegisteredOnly = not $ isRegisteredOnly r})]
+ return [ModifyRoom (\r -> r{isRegisteredOnly = not $ isRegisteredOnly r}), SendUpdateOnThisRoom]
handleCmd_inRoom ["ROOM_NAME", newName] = roomAdminOnly $ do