X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMain.hs;h=d66f704e8d0cd91ce1676b75380e85146cdbed67;hb=6883632cfac0e3ee7ad6781300555dbf40d98b40;hp=e8c1356b6dd40234046b9f8f44be4188f8f6c4b4;hpb=4fd6088bc7b1dcde64728c9edcff577c13dc4e78;p=dead%2Fhtsn-import.git

diff --git a/src/Main.hs b/src/Main.hs
index e8c1356..d66f704 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -211,7 +211,7 @@ main = do
       report_info $ "Removed processed file " ++ path ++ "."
 
     -- | Try to remove @path@ and potentially try again.
-    kill try_again path = do
+    kill try_again path =
       (remove_and_report path) `catchIOError` exception_handler
       where
         -- | A wrapper around threadDelay which takes seconds instead of
@@ -228,7 +228,7 @@ main = do
           report_error (show e)
           report_error $ "Failed to remove imported file " ++ path ++ "."
           if try_again then do
-            report_info $ "Waiting 5 seconds to attempt removal again..."
+            report_info "Waiting 5 seconds to attempt removal again..."
             thread_sleep 5
             kill False path
           else