Add a "threshold" to the configuration.

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

diff --git a/harbl-cli/src/CommandLine.hs b/harbl-cli/src/CommandLine.hs
index a3481fef70c64a320a97163451cc5aaf8f41c1cb..9de575fe6acf3b3ea15e2869b42e413e1582766b 100644 (file)
--- a/harbl-cli/src/CommandLine.hs
+++ b/harbl-cli/src/CommandLine.hs
@@ -35,12 +35,18 @@ my_summary :: String
 my_summary = program_name ++ "-" ++ (showVersion version)
 
 
--- | A description of the "daemonize" option.
+-- | A description of the \"lists\" option.
 lists_help :: String
 lists_help =
   "A list of RBLs to check. See the manual for advanced syntax."
 
 
+-- | A description of the \"threshold\" option.
+threshold_help :: String
+threshold_help =
+  "The \"score\" a host must have to be considered blacklisted."
+
+
 -- | A data structure representing the possible command-line
 --   options. The CmdArgs library is doing heavy magic beneath the
 --   hood here.
@@ -48,8 +54,9 @@ lists_help =
 arg_spec :: OptionalConfiguration
 arg_spec =
   OptionalConfiguration {
-    hosts = def &= typ "HOSTS" &= args,
-    lists = def &= typ "RBLs"  &= help lists_help }
+    hosts     = def &= typ "HOSTS"   &= args,
+    lists     = def &= typ "RBLs"    &= help lists_help,
+    threshold = def &= typ "INTEGER" &= help threshold_help }
   &= program program_name
   &= summary my_summary
   &= details [description]