harbl-cli/src/ExitCodes.hs

   1 -- | All exit codes that the program can return (excepting
   2 --   ExitSuccess).
   3 --
   4 module ExitCodes (
   5   exit_host_blacklisted,
   6   exit_no_hosts,
   7   exit_no_lists,
   8   exit_unparseable_host,
   9   exit_unparseable_list )
  10 where
  11
  12 -- | The most common error: some host exceeded the blacklist
  13 --   threshold.
  14 exit_host_blacklisted :: Int
  15 exit_host_blacklisted = 1
  16
  17
  18 -- | No hosts were given on the command-line or in a config file.
  19 --
  20 exit_no_hosts :: Int
  21 exit_no_hosts = 2
  22
  23
  24 -- | No lists were given on the command-line or in a config file.
  25 --
  26 exit_no_lists :: Int
  27 exit_no_lists = 3
  28
  29
  30 -- | The user gave us an RBL we couldn't parse.
  31 --
  32 exit_unparseable_list :: Int
  33 exit_unparseable_list = 4
  34
  35
  36 -- | The user gave us a host we couldn't parse.
  37 --
  38 exit_unparseable_host :: Int
  39 exit_unparseable_host = 5