equal
deleted
inserted
replaced
46 |
46 |
47 |
47 |
48 newtype RoomIndex = RoomIndex ElemIndex |
48 newtype RoomIndex = RoomIndex ElemIndex |
49 deriving (Eq) |
49 deriving (Eq) |
50 newtype ClientIndex = ClientIndex ElemIndex |
50 newtype ClientIndex = ClientIndex ElemIndex |
51 deriving (Eq, Show, Read) |
51 deriving (Eq, Show, Read, Ord) |
52 |
52 |
53 instance Show RoomIndex where |
53 instance Show RoomIndex where |
54 show (RoomIndex i) = 'r' : show i |
54 show (RoomIndex i) = 'r' : show i |
55 |
55 |
56 unRoomIndex :: RoomIndex -> ElemIndex |
56 unRoomIndex :: RoomIndex -> ElemIndex |