gameServer/RoomsAndClients.hs
changeset 3566 772a46ef8288
parent 3555 4c5ca656d1bb
child 3645 c0b3f1bb9316
--- 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