diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-08-16 20:49:04 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-08-16 20:49:44 -0400 |
| commit | 4545a0e78cf675c6bbbcdd86b5c06bf99bb0c7e9 (patch) | |
| tree | 37ee27fd0a852aafb741be4b85b4d48a96f295e2 /Command/AddUrl.hs | |
| parent | 07f2e7ee726f3d7f60cd478e928afc69db60c0c8 (diff) | |
split out generic url stuff into a helper library from Remote.Web
Diffstat (limited to 'Command/AddUrl.hs')
| -rw-r--r-- | Command/AddUrl.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index e87de384b..add71c820 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -14,6 +14,7 @@ import System.Directory import Command import qualified Backend +import qualified Remote.Helper.Url import qualified Remote.Web import qualified Command.Add import qualified Annex @@ -52,7 +53,7 @@ download url file = do let dummykey = Backend.URL.fromUrl url let tmp = gitAnnexTmpLocation g dummykey liftIO $ createDirectoryIfMissing True (parentDir tmp) - ok <- Remote.Web.download [url] tmp + ok <- Remote.Helper.Url.download url tmp if ok then do [(_, backend)] <- Backend.chooseBackends [file] |