equal
deleted
inserted
replaced
414 where |
414 where |
415 st irnc = (length $ allRooms irnc, length $ allClients irnc) |
415 st irnc = (length $ allRooms irnc, length $ allClients irnc) |
416 |
416 |
417 processAction (RestartServer force) = do |
417 processAction (RestartServer force) = do |
418 if force then do |
418 if force then do |
419 throw ShutdownException |
419 throw RestartException |
420 else |
420 else |
421 processAction $ ModifyServerInfo (\s -> s{restartPending=True}) |
421 processAction $ ModifyServerInfo (\s -> s{restartPending=True}) |