mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages1 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

4
Remote/Web.hs
View file

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