--- a/gameServer/RoomsAndClients.hs	Sat Jun 26 16:58:19 2010 +0400
+++ b/gameServer/RoomsAndClients.hs	Sun Jun 27 21:06:41 2010 +0400
@@ -48,7 +48,7 @@
 newtype RoomIndex = RoomIndex ElemIndex
     deriving (Eq)
 newtype ClientIndex = ClientIndex ElemIndex
-    deriving (Eq, Show, Read)
+    deriving (Eq, Show, Read, Ord)
 
 instance Show RoomIndex where
     show (RoomIndex i) = 'r' : show i