From 44a0ef97a39c679fc4cb6cb9aa1ae28ba724e1e7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Apr 2017 14:09:07 -0400 Subject: improve --- Role/Downloader.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Role') diff --git a/Role/Downloader.hs b/Role/Downloader.hs index d013344..d969df8 100644 --- a/Role/Downloader.hs +++ b/Role/Downloader.hs @@ -23,6 +23,7 @@ downloader dsv _ichan ochan sid = do sk <- genMySessionKey (st, _startoutput) <- processSessionStart sk ochan logger dsv go logger st + putStrLn $ "Finished download to " ++ logfile where go logger st = do ts <- getPOSIXTime -- cgit v1.2.3