rename showProgress -> showProgressDots

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.

Upgrade/V2.hs

@@ -44,7 +44,7 @@ upgrade = do
 	old <- fromRepo olddir
 
 	Annex.Branch.create
-	showProgress
+	showProgressDots
 
 	e <- liftIO $ doesDirectoryExist old
 	when e $ do
@@ -53,12 +53,12 @@ upgrade = do
 		mapM_ (\f -> inject f f) =<< logFiles old
 
 	saveState False
-	showProgress
+	showProgressDots
 
 	when e $ do
 		inRepo $ Git.Command.run [Param "rm", Param "-r", Param "-f", Param "-q", File old]
 		unless bare $ inRepo gitAttributesUnWrite
-	showProgress
+	showProgressDots
 
 	unless bare push