X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fharbl.git;a=blobdiff_plain;f=harbl-cli%2Fsrc%2FExitCodes.hs;fp=harbl-cli%2Fsrc%2FExitCodes.hs;h=472ea152d4a2293969322c85ca827026d2b944b6;hp=0000000000000000000000000000000000000000;hb=b55e5db2a68be5d69b970bbe4b5ad447881abd3d;hpb=c4d41b93ec02ff4dc762163441ebefb0324e6f07

diff --git a/harbl-cli/src/ExitCodes.hs b/harbl-cli/src/ExitCodes.hs
new file mode 100644
index 0000000..472ea15
--- /dev/null
+++ b/harbl-cli/src/ExitCodes.hs
@@ -0,0 +1,32 @@
+-- | All exit codes that the program can return (excepting
+--   ExitSuccess).
+--
+module ExitCodes (
+  exit_no_hosts,
+  exit_no_lists,
+  exit_unparseable_host,
+  exit_unparseable_list )
+where
+
+-- | No hosts were given on the command-line or in a config file.
+--
+exit_no_hosts :: Int
+exit_no_hosts = 1
+
+
+-- | No lists were given on the command-line or in a config file.
+--
+exit_no_lists :: Int
+exit_no_lists = 2
+
+
+-- | The user gave us an RBL we couldn't parse.
+--
+exit_unparseable_list :: Int
+exit_unparseable_list = 3
+
+
+-- | The user gave us a host we couldn't parse.
+--
+exit_unparseable_host :: Int
+exit_unparseable_host = 4