avoid unnessary newlines before progress in quiet mode

1 files changed, 2 insertions, 0 deletions

diff --git a/Core.hs b/Core.hs
index cf97768c7..8cdc6979a 100644
--- a/Core.hs
+++ b/Core.hs
@@ -154,6 +154,8 @@ showNote :: String -> Annex ()
 showNote s = verbose $ do
 	liftIO $ putStr $ "(" ++ s ++ ") "
 	liftIO $ hFlush stdout
+showProgress :: Annex ()
+showProgress = verbose $ liftIO $ putStr $ "\n"
 showLongNote :: String -> Annex ()
 showLongNote s = verbose $ do
 	liftIO $ putStr $ "\n" ++ (indent s)