changeset 9435 | 59eec19cb31a |
parent 9401 | 2af7bea32e5e |
child 9446 | 4fd5df03deb8 |
--- 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)