diff options
Diffstat (limited to 'Messages.hs')
| -rw-r--r-- | Messages.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Messages.hs b/Messages.hs index 88a4a8c18..a8816218c 100644 --- a/Messages.hs +++ b/Messages.hs @@ -10,7 +10,7 @@ module Messages ( showStart', showNote, showAction, - showProgress, + showProgressDots, metered, meteredBytes, showSideAction, @@ -69,8 +69,8 @@ showAction :: String -> Annex () showAction s = showNote $ s ++ "..." {- Progress dots. -} -showProgress :: Annex () -showProgress = handle q $ +showProgressDots :: Annex () +showProgressDots = handle q $ flushed $ putStr "." {- Shows a progress meter while performing a transfer of a key. |