@@ -8,7 +8,6 @@ import Options.Applicative as Opts
88import Data.Text
99import OddJobs.Job (startJobRunner, Config(..), LogLevel(..), LogEvent(..))
1010import OddJobs.Types (UIConfig(..), Seconds(..), delaySeconds)
11−-- import System.Daemonize (DaemonOptions(..), daemonize)
1211import qualified System.Posix.Daemon as Daemon
1312import System.FilePath (FilePath)
1413import System.Posix.Process (getProcessID)
@@ -163,7 +162,6 @@ defaultStopCommand :: StopArgs
163162 -> IO ()
164163defaultStopCommand StopArgs{..} = do
165164 progName <- getProgName
166− -- pid <- read <$> (readFile shutPidFile)
167165 if shutTimeout == Seconds 0
168166 then Daemon.brutalKill shutPidFile
169167 else do putStrLn $ "Sending sigINT to " <> show progName <>
@@ -310,8 +308,6 @@ stopParser = fmap Stop $ StopArgs
310308 <$> option (Seconds <$> auto) ( long "timeout" <>
311309 metavar "TIMEOUT" <>
312310 help "Maximum seconds to wait before force-killing the background daemon."
313− -- value defaultTimeout <>
314− -- showDefaultWith (show . unSeconds)
315311 )
316312 <*> pidFileParser
317313
@@ -344,16 +340,6 @@ defaultCliInfo :: CliType -> ParserInfo Args
344340defaultCliInfo cliType =
345341 info (argParser cliType <**> helper) fullDesc
346342
347−-- defaultDaemonOptions :: DaemonOptions
348−-- defaultDaemonOptions = DaemonOptions
349−-- { daemonShouldChangeDirectory = False
350−-- , daemonShouldCloseStandardStreams = False
351−-- , daemonShouldIgnoreSignals = True
352−-- , daemonUserToChangeTo = Nothing
353−-- , daemonGroupToChangeTo = Nothing
354−-- }
355−
356−
357343-- ** Auth implementations for the default Web UI
358344
359345-- *** Basic Auth