--- a/gameServer/CoreTypes.hs	Wed Aug 28 23:11:05 2013 +0400
+++ b/gameServer/CoreTypes.hs	Wed Aug 28 23:44:27 2013 +0400
@@ -106,6 +106,7 @@
         isInGame :: Bool,
         isAdministrator :: Bool,
         isChecker :: Bool,
+        isContributor :: Bool,
         isKickedFromServer :: Bool,
         isJoinedMidGame :: Bool,
         clientClan :: !(Maybe B.ByteString),
@@ -254,7 +255,7 @@
         []
 
 data AccountInfo =
-    HasAccount B.ByteString Bool
+    HasAccount B.ByteString Bool Bool
     | Guest
     | Admin
     deriving (Show, Read)