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

rename to avoid warning

Browse source 
a new version of persistent exports an "exists"
This commit is contained in:
Joey Hess 2021-10-18 16:25:00 -04:00
parent d9fbbb2346
commit 0697dbe2d2
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/WebApp/Configurators/IA.hs
View file

@ -180,11 +180,11 @@ escapeHeader = escapeURIString (\c -> isUnescapedInURI c && c /= ' ')
getRepoInfo :: RemoteConfig -> Widget getRepoInfo :: RemoteConfig -> Widget
getRepoInfo c = do getRepoInfo c = do
uo <- liftAnnex Url.getUrlOptions uo <- liftAnnex Url.getUrlOptions
exists <- liftAnnex $ catchDefaultIO False $ Url.exists url uo urlexists <- liftAnnex $ catchDefaultIO False $ Url.exists url uo
[whamlet| [whamlet|
<a href="#{url}"> <a href="#{url}">
Internet Archive item Internet Archive item
$if (not exists) $if (not urlexists)
<p> <p>
The page will only be available once some files # The page will only be available once some files #
have been uploaded, and the Internet Archive has processed them. have been uploaded, and the Internet Archive has processed them.