Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/Actions.hs
changeset 4914 5c33bb53c1e5
parent 4909 dc6482438674
child 4917 8ff92bdc9f98 
--- a/gameServer/Actions.hs	Thu Feb 03 07:00:38 2011 +0100
+++ b/gameServer/Actions.hs	Thu Feb 03 22:29:10 2011 +0300
@@ -53,6 +53,7 @@
     | DeleteClient ClientIndex
     | PingAll
     | StatsAction
+    | RestartServer Bool
 
 type CmdHandler = [B.ByteString] -> Reader (ClientIndex, IRnC) [Action]
 
@@ -417,7 +418,7 @@
                     processAction (ByeClient "Ping timeout")
 
 
-processAction (StatsAction) = do
+processAction StatsAction = do
     rnc <- gets roomsClients
     si <- gets serverInfo
     (roomsNum, clientsNum) <- io $ withRoomsAndClients rnc stats
@@ -425,3 +426,5 @@
     where
           stats irnc = (length $ allRooms irnc, length $ allClients irnc)
 
+processAction (RestartServer useForce) = do
+    return ()
\ No newline at end of file
hedgewars