X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FExitCodes.hs;h=65a519869cf3f88ecfa86c64c0353b4d0c9c4553;hp=7597a54723e0fa28d466f195f5161e60698ea3c4;hb=c9a905e0ab69317448f261377ab9031fb83443b4;hpb=15fd6f764f88f79424d7caaba564e57df564b532

diff --git a/src/ExitCodes.hs b/src/ExitCodes.hs
index 7597a54..65a5198 100644
--- a/src/ExitCodes.hs
+++ b/src/ExitCodes.hs
@@ -1,9 +1,20 @@
 -- | All exit codes that the program can return (excepting
 --   ExitSuccess).
-module ExitCodes ( exit_no_usernames )
+module ExitCodes (
+  exit_no_usernames,
+  exit_pidfile_exists )
 where
 
+
 -- | No usernames found on either the command-line or in a config
 --   file.
 exit_no_usernames :: Int
 exit_no_usernames = 1
+
+
+-- | 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 = 2