--- a/gameServer/CoreTypes.hs Thu Jun 24 19:52:04 2010 +0400
+++ b/gameServer/CoreTypes.hs Fri Jun 25 10:05:42 2010 +0400
@@ -49,7 +49,7 @@
data TeamInfo =
TeamInfo
{
- teamownerId :: !Int,
+ teamownerId :: ClientIndex,
teamowner :: B.ByteString,
teamname :: B.ByteString,
teamcolor :: B.ByteString,