--- a/gameServer/RoomsAndClients.hs	Thu Jun 24 19:52:04 2010 +0400
+++ b/gameServer/RoomsAndClients.hs	Fri Jun 25 10:05:42 2010 +0400
@@ -23,6 +23,7 @@
     withRoomsAndClients,
     allRooms,
     allClients,
+    clientRoom,
     showRooms,
     roomClients
     ) where