--- a/gameServer/Actions.hs	Sat Feb 19 04:04:34 2011 +0100
+++ b/gameServer/Actions.hs	Wed Feb 23 18:34:07 2011 +0300
@@ -53,6 +53,7 @@
     | StatsAction
     | RestartServer Bool
 
+
 type CmdHandler = [B.ByteString] -> Reader (ClientIndex, IRnC) [Action]
 
 instance NFData Action where
@@ -412,5 +413,8 @@
     where
           st irnc = (length $ allRooms irnc, length $ allClients irnc)
 
-processAction (RestartServer _) =
-    return ()
\ No newline at end of file
+processAction (RestartServer force) = do
+    if force then do
+        return ()
+        else
+        processAction $ ModifyServerInfo (\s -> s{restartPending=True})