Add a bunch of new options allowing htsn to daemonize.

[dead/htsn.git] / src / ExitCodes.hs

diff --git a/src/ExitCodes.hs b/src/ExitCodes.hs
index b5765cc58311ed12c54d3069838e9bc3924c6f1b..f412a07b040a38a7d0c5bf529975f5bdb44746df 100644 (file)
--- a/src/ExitCodes.hs
+++ b/src/ExitCodes.hs
@@ -4,7 +4,8 @@
 module ExitCodes (
   exit_no_feed_hosts,
   exit_no_password,
-  exit_no_username )
+  exit_no_username,
+  exit_pidfile_exists )
 where
 
 -- | No feed hosts were given on the command line or in the config file.
@@ -18,3 +19,9 @@ exit_no_password = 2
 -- | No username was given on the command line or in the config file.
 exit_no_username :: Int
 exit_no_username = 3
+
+-- | When running as a daemon, the existence of a fixed PID file is
+--   used to determine whether or not the daemon is already
+--   running. If the PID file already exists, we shouldn't start.
+exit_pidfile_exists :: Int
+exit_pidfile_exists = 4