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

moved files around

Browse source
This commit is contained in:
Joey Hess 2011-08-20 16:11:42 -04:00
parent ec746c511f
commit 737b5d14c9
19 changed files with 28 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/AddUrl.hs
View file

@ -14,7 +14,7 @@ import System.Directory
import Command
import qualified Backend
import qualified Remote.Helper.Url
import qualified Utility.Url as Url
import qualified Remote.Web
import qualified Command.Add
import qualified Annex
@ -53,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.Helper.Url.download url tmp
ok <- Url.download url tmp
if ok
then do
[(_, backend)] <- Backend.chooseBackends [file]