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

diff --git a/src/Main.hs b/src/Main.hs
index 27ddb66..a5e05eb 100644
--- 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