changeset 4960 | 3b54b1c9b768 |
parent 4959 | 09f4978b4fb0 |
child 4962 | 705c6186ad9d |
--- a/gameServer/Actions.hs Thu Feb 24 22:01:36 2011 +0300 +++ b/gameServer/Actions.hs Sun Feb 27 19:32:14 2011 +0300 @@ -416,6 +416,6 @@ processAction (RestartServer force) = do if force then do - io $ throwIO ShutdownException + throw ShutdownException else processAction $ ModifyServerInfo (\s -> s{restartPending=True})