diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-08-06 14:57:22 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-08-06 14:57:22 -0400 |
| commit | dede05171bc9431778da72e5e1235c69db9fa38e (patch) | |
| tree | a9bc1f6fce6e16af835b9d3ff7d647ad0d82583e /Command/Migrate.hs | |
| parent | dd8e649f49212c46df23f329299c64e13a3c90e1 (diff) | |
addurl: --fast can be used to avoid immediately downloading the url.
The tricky part about this is that to generate a key, the file must be
present already. Worked around by adding (back) an URL key type, which
is used for addurl --fast.
Diffstat (limited to 'Command/Migrate.hs')
| -rw-r--r-- | Command/Migrate.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Migrate.hs b/Command/Migrate.hs index 495bf9fb6..5ae835440 100644 --- a/Command/Migrate.hs +++ b/Command/Migrate.hs @@ -72,7 +72,7 @@ perform file oldkey newbackend = do then do -- Update symlink to use the new key. liftIO $ removeFile file - next $ Command.Add.cleanup file newkey + next $ Command.Add.cleanup file newkey True else stop where cleantmp t = whenM (doesFileExist t) $ removeFile t |