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
|
@ -191,7 +191,7 @@ escapeHeader = escapeURIString (\c -> isUnescapedInURI c && c /= ' ')
|
|||
getRepoInfo :: RemoteConfig -> Widget
|
||||
getRepoInfo c = do
|
||||
ua <- liftAnnex Url.getUserAgent
|
||||
exists <- liftIO $ catchDefaultIO False $ fst <$> Url.exists url [] ua
|
||||
exists <- liftIO $ catchDefaultIO False $ fst <$> Url.exists url [] [] ua
|
||||
[whamlet|
|
||||
<a href="#{url}">
|
||||
Internet Archive item
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue