--- a/gameServer/CoreTypes.hs	Sun Nov 11 14:59:22 2012 +0100
+++ b/gameServer/CoreTypes.hs	Sun Nov 11 15:14:18 2012 +0100
@@ -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]
     }