413     else if m < 2 || m > cMaxTeams then

   413     else if m < 2 || m > cMaxTeams then

   414         return [Warning $ loc "/maxteams: specify number from 2 to 8"]

   414         return [Warning $ loc "/maxteams: specify number from 2 to 8"]

   415     else

   415     else

   416         return [ModifyRoom (\r -> r{teamsNumberLimit = m})]

   416         return [ModifyRoom (\r -> r{teamsNumberLimit = m})]

   417 

   417 

   418 handleCmd_inRoom ["FIX"] = serverAdminOnly $

   420 handleCmd_inRoom ["FIX"] = serverAdminOnly $

   419     return [ModifyRoom (\r -> r{isSpecial = True})]

   421     return [ModifyRoom (\r -> r{isSpecial = True})]

   420 

   422 

   421 handleCmd_inRoom ["UNFIX"] = serverAdminOnly $ do

   423 handleCmd_inRoom ["UNFIX"] = serverAdminOnly $ do

   422     cl <- thisClient

   424     cl <- thisClient