changeset 8431 | 74c2c95ab07b |
parent 8428 | 73ab5a17ee55 |
child 8433 | 3b318a130a62 |
--- 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 {