]> gitweb.michael.orlitzky.com - dead/htsn-import.git/blobdiff - src/Main.hs
Change "imported" to "processed" in some output.
[dead/htsn-import.git] / src / Main.hs
index 663c51ce0ea206b649ad1565659eeca180b521c2..da27b12e9a59ebf8a1e27a4c5fd4a13cf42f85cc 100644 (file)
@@ -219,8 +219,8 @@ main = do
   -- deleted.
   let result_pairs = zip (OC.xml_files opt_config) results
   let victims = [ p | (p, True) <- result_pairs ]
-  let imported_count = length victims
-  report_info $ "Imported " ++ (show imported_count) ++ " document(s) total."
+  let processed_count = length victims
+  report_info $ "Processed " ++ (show processed_count) ++ " document(s) total."
   when (remove cfg) $ mapM_ (kill True) victims
 
   where