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

diff --git a/src/ExitCodes.hs b/src/ExitCodes.hs
index b5765cc..f412a07 100644
--- 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