diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-08-22 23:36:35 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-08-22 23:36:35 -0400 |
| commit | 082eb2d96068d9c602a9de1cda503fa645f4abd0 (patch) | |
| tree | 999ba97810f0e414aad81804c347667321caacbe /Remote/Web.hs | |
| parent | 4c8bf8446a2469823bca4b55079a3b0caab6ad03 (diff) | |
better cases
Diffstat (limited to 'Remote/Web.hs')
| -rw-r--r-- | Remote/Web.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Web.hs b/Remote/Web.hs index 7d1808bd4..42ae032e9 100644 --- a/Remote/Web.hs +++ b/Remote/Web.hs @@ -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) |