X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FExitCodes.hs;h=ade20bfc8bf9618eb8ef4971715fdf0a309bc525;hb=HEAD;hp=b5765cc58311ed12c54d3069838e9bc3924c6f1b;hpb=d4d924b26e451aec9ad84b6d9d376ba2aeab3422;p=dead%2Fhtsn.git

diff --git a/src/ExitCodes.hs b/src/ExitCodes.hs
index b5765cc..ade20bf 100644
--- a/src/ExitCodes.hs
+++ b/src/ExitCodes.hs
@@ -1,20 +1,31 @@
--- |All exit codes that the program can return (excepting
--- ExitSuccess). There's only one, since the program will try and fail
--- forever upon errors.
+-- | All exit codes that the program can return (excepting
+--   'ExitSuccess').
+--
 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.
+--
 exit_no_feed_hosts :: Int
 exit_no_feed_hosts = 1
 
 -- | No password was given on the command line or in the config file.
+--
 exit_no_password :: Int
 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