--- a/gameServer/CoreTypes.hs	Tue Nov 13 23:16:21 2012 +0400
+++ b/gameServer/CoreTypes.hs	Tue Nov 13 23:21:46 2012 +0400
@@ -100,7 +100,7 @@
         readyPlayers :: !Int,
         isRestrictedJoins :: Bool,
         isRestrictedTeams :: Bool,
-        roomBansList :: [B.ByteString],
+        roomBansList :: ![B.ByteString],
         mapParams :: Map.Map B.ByteString B.ByteString,
         params :: Map.Map B.ByteString [B.ByteString]
     }