--- a/gameServer/CoreTypes.hs	Wed Jan 23 16:35:26 2013 -0500
+++ b/gameServer/CoreTypes.hs	Fri Jan 25 12:59:06 2013 +0400
@@ -38,7 +38,7 @@
         isAdministrator :: Bool,
         isChecker :: Bool,
         isKickedFromServer :: Bool,
-        clientClan :: Maybe B.ByteString,
+        clientClan :: !Maybe B.ByteString,
         teamsInGame :: Word
     }
 
@@ -66,6 +66,9 @@
     }
     deriving (Show, Read)
 
+instance Eq TeamInfo where
+    (==) = (==) `on` teamname
+    
 data GameInfo =
     GameInfo
     {