--- a/netserver/Miscutils.hs	Fri Oct 24 14:28:47 2008 +0000
+++ b/netserver/Miscutils.hs	Fri Oct 24 15:02:26 2008 +0000
@@ -102,6 +102,9 @@
 	else
 		cl : (modifyClient client cls)
 
+modifyRoomClients :: RoomInfo -> (ClientInfo -> ClientInfo) -> ClientsTransform
+modifyRoomClients clientsroom clientMod clients = map (\c -> if name clientsroom == room c then clientMod c else c) clients
+
 noChangeRooms :: RoomsTransform
 noChangeRooms a = a