main :: IO ()
main = defaultMain defaultSettings {
    psUpdateConfig = updateConfig
  , psUpdateServer = updateServer
  , psOnStart      = \_ -> do
      pid <- getProcessID
      putStrLn $ "Please send SIGHUP to " ++ show pid ++ " to relaunch workers"
  } $ \w -> case w of
  Worker1 msg -> putStrLn msg >> exitSuccess
  Worker2 msg -> putStrLn msg >> exitSuccess
main :: IO ()
main = defaultMain defaultSettings {
    psUpdateConfig = updateConfig
  , psUpdateServer = updateServer
  , psOnStart      = \_ -> do
      pid <- getProcessID
      putStrLn $ "Please send SIGHUP to " ++ show pid ++ " to relaunch workers"
  } $ \w -> case w of
  Worker1 msg -> putStrLn msg >> exitSuccess
  Worker2 msg -> putStrLn msg >> exitSuccess
main = defaultMain defaultSettings {
    psUpdateConfig = updateConfig
  , psUpdateServer = updateServer
  , psOnStart      = \_ -> do
      pid <- getProcessID
      putStrLn $ "Please send SIGHUP to " ++ show pid ++ " to relaunch workers"
  } $ \w -> case w of
  Worker1 msg -> putStrLn msg >> exitSuccess
  Worker2 msg -> putStrLn msg >> exitSuccess