From c048905dc4c2ce155dbb03d7e60014568faa9553 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 21 Mar 2011 20:46:43 -0400
Subject: upgrade messages

---
 Upgrade/V1.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'Upgrade/V1.hs')

diff --git a/Upgrade/V1.hs b/Upgrade/V1.hs
index 43f279ad0..f18a76c87 100644
--- a/Upgrade/V1.hs
+++ b/Upgrade/V1.hs
@@ -55,7 +55,7 @@ import qualified Command.Init
 
 upgrade :: Annex Bool
 upgrade = do
-	showSideAction "Upgrading object directory layout v1 to v2..."
+	showNote "v1 to v2"
 
 	g <- Annex.gitRepo
 	if Git.repoIsLocalBare g
@@ -78,6 +78,7 @@ upgrade = do
 
 moveContent :: Annex ()
 moveContent = do
+	showNote "moving content..."
 	keys <- getKeysPresent1
 	forM_ keys move
 	where
@@ -92,6 +93,7 @@ moveContent = do
 
 updateSymlinks :: Annex ()
 updateSymlinks = do
+	showNote "updating symlinks content..."
 	g <- Annex.gitRepo
 	files <- liftIO $ Git.inRepo g [Git.workTree g]
 	forM_ files $ fixlink
@@ -109,6 +111,7 @@ updateSymlinks = do
 
 moveLocationLogs :: Annex ()
 moveLocationLogs = do
+	showNote "moving location logs..."
 	logkeys <- oldlocationlogs
 	forM_ logkeys move
 		where
-- 
cgit v1.2.3