add explicit upgrade command

This commit is contained in:
Joey Hess 2011-03-16 15:48:26 -04:00
parent bc21502b9a
commit d7ef5fd294
5 changed files with 34 additions and 3 deletions

View file

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