X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fharbl.git;a=blobdiff_plain;f=harbl-cli%2Fsrc%2FCommandLine.hs;h=9de575fe6acf3b3ea15e2869b42e413e1582766b;hp=a3481fef70c64a320a97163451cc5aaf8f41c1cb;hb=98b9d8768fe78d9948151e499ec52f7f616bd6e9;hpb=b55e5db2a68be5d69b970bbe4b5ad447881abd3d

diff --git a/harbl-cli/src/CommandLine.hs b/harbl-cli/src/CommandLine.hs
index a3481fe..9de575f 100644
--- 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]