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

clean Annex stuff out of Utility/

Browse source
This commit is contained in:
Joey Hess 2011-10-16 00:04:26 -04:00
parent 52c8244219
commit 91366c896d
8 changed files with 14 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/Web.hs
View file

@ -49,7 +49,9 @@ downloadKey key file = get =<< getUrls key
get [] = do
warning "no known url"
return False
get urls = anyM (`Url.download` file) urls
get urls = do
showOutput -- make way for download progress bar
liftIO $ anyM (`Url.download` file) urls
uploadKey :: Key -> Annex Bool
uploadKey _ = do