Make annex.web-options be used in several places that call curl.
This commit is contained in:
parent
46cc39f1a4
commit
c69d6eb035
9 changed files with 39 additions and 36 deletions
|
@ -117,9 +117,9 @@ checkKey' key us = firsthit us (Right False) $ \u -> do
|
|||
return $ Left "quvi support needed for this url"
|
||||
#endif
|
||||
DefaultDownloader -> do
|
||||
headers <- getHttpHeaders
|
||||
(headers, options) <- getHttpHeadersOptions
|
||||
Url.withUserAgent $ catchMsgIO .
|
||||
Url.checkBoth u' headers (keySize key)
|
||||
Url.checkBoth u' headers options (keySize key)
|
||||
where
|
||||
firsthit [] miss _ = return miss
|
||||
firsthit (u:rest) _ a = do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue