rename to avoid warning

a new version of persistent exports an "exists"

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