Add a "new" exit code (shift them all, really) for a host being blacklisted.

[dead/harbl.git] / harbl-cli / src / ExitCodes.hs

diff --git a/harbl-cli/src/ExitCodes.hs b/harbl-cli/src/ExitCodes.hs
index 472ea152d4a2293969322c85ca827026d2b944b6..8459df7fd0eae70226b340c63df76cc70aca9b5f 100644 (file)
--- a/harbl-cli/src/ExitCodes.hs
+++ b/harbl-cli/src/ExitCodes.hs
@@ -2,31 +2,38 @@
 --   ExitSuccess).
 --
 module ExitCodes (
+  exit_host_blacklisted,
   exit_no_hosts,
   exit_no_lists,
   exit_unparseable_host,
   exit_unparseable_list )
 where
 
+-- | The most common error: some host exceeded the blacklist
+--   threshold.
+exit_host_blacklisted :: Int
+exit_host_blacklisted = 1
+
+
 -- | No hosts were given on the command-line or in a config file.
 --
 exit_no_hosts :: Int
-exit_no_hosts = 1
+exit_no_hosts = 2
 
 
 -- | No lists were given on the command-line or in a config file.
 --
 exit_no_lists :: Int
-exit_no_lists = 2
+exit_no_lists = 3
 
 
 -- | The user gave us an RBL we couldn't parse.
 --
 exit_unparseable_list :: Int
-exit_unparseable_list = 3
+exit_unparseable_list = 4
 
 
 -- | The user gave us a host we couldn't parse.
 --
 exit_unparseable_host :: Int
-exit_unparseable_host = 4
+exit_unparseable_host = 5