Don't remove imported files by default.

[dead/htsn-import.git] / src / CommandLine.hs

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index 28768f98c3995e2d1f36a54856b4210cf17f0351..cfb43b387b7d30a21ca105ca71a0daa22e1bba8a 100644 (file)
--- 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