--- a/gameServer/Actions.hs	Fri Mar 27 14:02:27 2009 +0000
+++ b/gameServer/Actions.hs	Fri Mar 27 15:58:54 2009 +0000
@@ -34,6 +34,7 @@
 	| RemoveClientTeams Int -- clID
 	| ModifyClient (ClientInfo -> ClientInfo)
 	| ModifyRoom (RoomInfo -> RoomInfo)
+	| ModifyServerInfo (ServerInfo -> ServerInfo)
 	| AddRoom String String
 	| CheckRegistered
 	| ProcessAccountInfo AccountInfo
@@ -150,6 +151,10 @@
 		rID = roomID $ clients ! clID
 
 
+processAction (clID, serverInfo, clients, rooms) (ModifyServerInfo func) = do
+	return (clID, func serverInfo, clients, rooms)
+
+
 processAction (clID, serverInfo, clients, rooms) (RoomAddThisClient rID) = do
 	processAction (
 		clID,