From d7ef5fd2941fa66aa7f9c998fe4acfda60e63295 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 16 Mar 2011 15:48:26 -0400
Subject: add explicit upgrade command

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

(limited to 'Upgrade')

diff --git a/Upgrade/V1.hs b/Upgrade/V1.hs
index 64ca298eb..f1c3e6143 100644
--- a/Upgrade/V1.hs
+++ b/Upgrade/V1.hs
@@ -104,7 +104,7 @@ updateSymlinks = do
 					liftIO $ removeFile f
 					liftIO $ createSymbolicLink link f
 					Annex.queue "add" [Param "--"] f
-					Annex.queueRunAt 1024
+					Annex.queueRunAt 10240
 
 moveLocationLogs :: Annex ()
 moveLocationLogs = do
@@ -132,7 +132,7 @@ moveLocationLogs = do
 				Annex.queue "add" [Param "--"] dest
 				Annex.queue "add" [Param "--"] f
 				Annex.queue "rm" [Param "--quiet", Param "-f", Param "--"] f
-				Annex.queueRunAt 1024
+				Annex.queueRunAt 10240
 		
 oldlog2key :: FilePath -> Maybe (FilePath, Key)
 oldlog2key l = 
-- 
cgit v1.2.3