# HG changeset patch
# User unC0Rr
# Date 1427872621 -10800
# Node ID 7b76811fb689d7ef654c688416a2693b92fb5062
# Parent  294ef49efdd29939aeb4e891f365079ec0f65ce6
Fix off-by-1 error

diff -r 294ef49efdd2 -r 7b76811fb689 gameServer/HWProtoInRoomState.hs
--- a/gameServer/HWProtoInRoomState.hs	Wed Apr 01 02:42:37 2015 +0200
+++ b/gameServer/HWProtoInRoomState.hs	Wed Apr 01 10:17:01 2015 +0300
@@ -125,7 +125,7 @@
                     defaultHedgehogsNumber rm
         let newTeam = clNick `seq` TeamInfo clNick tName teamColor grave fort voicepack flag isRegistered dif hhNum (hhsList hhsInfo)
         return $
-            if not . null . drop (teamsNumberLimit rm) $ roomTeams then
+            if not . null . drop (teamsNumberLimit rm - 1) $ roomTeams then
                 [Warning $ loc "too many teams"]
             else if canAddNumber roomTeams <= 0 then
                 [Warning $ loc "too many hedgehogs"]