--- a/gameServer/CoreTypes.hs Sun Jun 06 15:29:33 2010 +0000
+++ b/gameServer/CoreTypes.hs Sun Jun 06 19:03:06 2010 +0000
@@ -70,7 +70,7 @@
data RoomInfo =
RoomInfo
{
- masterID :: !Int,
+ masterID :: ClientIndex,
name :: B.ByteString,
password :: B.ByteString,
roomProto :: Word16,
@@ -96,7 +96,7 @@
newRoom :: RoomInfo
newRoom = (
RoomInfo
- 0
+ undefined
""
""
0
@@ -124,7 +124,7 @@
ServerInfo
{
isDedicated :: Bool,
- serverMessage :: String,
+ serverMessage :: B.ByteString,
serverMessageForOldVersions :: B.ByteString,
latestReleaseVersion :: Word16,
listenPort :: PortNumber,