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

better cases

Browse source
This commit is contained in:
Joey Hess 2013-08-22 23:36:35 -04:00
parent c0d8064018
commit f8ebce9396
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Remote/Web.hs
View file

@ -74,7 +74,7 @@ downloadKey key _file dest _p = get =<< getUrls key
case downloader of
QuviDownloader -> flip downloadUrl dest
=<< withQuviOptions Quvi.queryLinks [Quvi.httponly, Quvi.quiet] u'
_ -> downloadUrl [u'] dest
DefaultDownloader -> downloadUrl [u'] dest
downloadKeyCheap :: Key -> FilePath -> Annex Bool
downloadKeyCheap _ _ = return False
@ -102,6 +102,6 @@ checkKey' key us = untilTrue us $ \u -> do
case downloader of
QuviDownloader ->
withQuviOptions Quvi.check [Quvi.httponly, Quvi.quiet] u'
_ -> do
DefaultDownloader -> do
headers <- getHttpHeaders
liftIO $ Url.check u' headers (keySize key)