]> gitweb.michael.orlitzky.com - dead/htsn-import.git/commitdiff
Change "imported" to "processed" in some output.
authorMichael Orlitzky <michael@orlitzky.com>
Wed, 22 Jan 2014 22:43:53 +0000 (17:43 -0500)
committerMichael Orlitzky <michael@orlitzky.com>
Wed, 22 Jan 2014 22:43:53 +0000 (17:43 -0500)
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