diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-10-15 16:36:56 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-10-15 16:36:56 -0400 |
| commit | ec169f84b1cc140b6d4c316fbd0e8407297d038a (patch) | |
| tree | b28d538df9249c7f03581696d23a9371e7ec9ffb /Command/AddUrl.hs | |
| parent | b4015064e1492c6591f69499d8d745989999ba53 (diff) | |
migrate: Copy url logs for keys when migrating.
Diffstat (limited to 'Command/AddUrl.hs')
| -rw-r--r-- | Command/AddUrl.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index 4447dee81..2756af880 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -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 |