Don't remove imported files by default.

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

diff --git a/src/Main.hs b/src/Main.hs
index 27ddb66f84b2933b5600bd7fa5b58e2dcbf09429..a5e05ebef6722602259c051f57d8b5054c6edbfa 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -213,7 +213,7 @@ main = do
   let victims = [ p | (p, True) <- result_pairs ]
   let imported_count = length victims
   report_info $ "Imported " ++ (show imported_count) ++ " document(s) total."
-  mapM_ (kill True) victims
+  when (remove cfg) $ mapM_ (kill True) victims
 
   where
     -- | Wrap these two actions into one function so that we don't