X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCommandLine.hs;h=cfb43b387b7d30a21ca105ca71a0daa22e1bba8a;hb=5124833f973f6c47a4eda3f4e343d3d8631897c6;hp=28768f98c3995e2d1f36a54856b4210cf17f0351;hpb=c6d0a578213ecfadd1359ea0af2a59da189654b1;p=dead%2Fhtsn-import.git

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index 28768f9..cfb43b3 100644
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -54,6 +54,11 @@ log_level_help :: String
 log_level_help =
   "How verbose should the logs be? One of INFO, WARNING, ERROR."
 
+-- | A description of the "remove" option.
+remove_help :: String
+remove_help =
+  "Remove files that have been successfully imported."
+
 -- | A description of the "syslog" option.
 syslog_help :: String
 syslog_help =
@@ -70,6 +75,7 @@ arg_spec =
     connection_string = def &= typ "STRING"   &= help connection_string_help,
     log_file          = def &= typFile        &= help log_file_help,
     log_level         = def &= typ "LEVEL"    &= help log_level_help,
+    remove            = def &= typ "BOOL"     &= help remove_help,
     syslog            = def &= typ "BOOL"     &= help syslog_help,
     xml_files         = def &= typ "XMLFILES" &= args }
   &= program program_name