mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

migrate: Copy url logs for keys when migrating.

Browse source
This commit is contained in:
Joey Hess 2011-10-15 16:36:56 -04:00
parent b4015064e1
commit ec169f84b1
5 changed files with 19 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Command/AddUrl.hs
View file

@ -13,12 +13,11 @@ import Common.Annex
import Command
import qualified Backend
import qualified Utility.Url as Url
import qualified Remote.Web
import qualified Command.Add
import qualified Annex
import qualified Backend.URL
import Annex.Content
import Logs.Presence
import Logs.Web
command :: [Command]
command = [repoCommand "addurl" (paramRepeating paramUrl) seek
@ -58,14 +57,14 @@ download url file = do
Nothing -> stop
Just (key, _) -> do
moveAnnex key tmp
Remote.Web.setUrl key url InfoPresent
setUrlPresent key url
next $ Command.Add.cleanup file key True
else stop
nodownload :: String -> FilePath -> CommandPerform
nodownload url file = do
let key = Backend.URL.fromUrl url
Remote.Web.setUrl key url InfoPresent
setUrlPresent key url
next $ Command.Add.cleanup file key False