--- 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,