rename showProgress -> showProgressDots

This commit is contained in:
Joey Hess 2015-04-03 13:51:32 -04:00
parent ea90722aba
commit bc0180da83
2 changed files with 6 additions and 6 deletions

View file

@ -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.