diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-03-16 15:48:26 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-03-16 15:48:26 -0400 |
| commit | d7ef5fd2941fa66aa7f9c998fe4acfda60e63295 (patch) | |
| tree | f31d160f1ce06bf2c8d9cf072acc9c392d93b5cf /Upgrade | |
| parent | bc21502b9a640e798dc6bbbb255aa9742a1c6187 (diff) | |
add explicit upgrade command
Diffstat (limited to 'Upgrade')
| -rw-r--r-- | Upgrade/V1.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 = |