fix intro display when there is 1 remote

This commit is contained in:
Joey Hess 2012-10-30 18:21:13 -04:00
parent a1bd5b1fa0
commit 96c7a5ce32
2 changed files with 1 additions and 4 deletions

View file

@ -47,11 +47,8 @@ introDisplay ident = do
repolist <- lift $ repoList True False
let n = length repolist
let numrepos = show n
let notenough = n < enough
$(widgetFile "configurators/intro")
lift $ modifyWebAppState $ \s -> s { showIntro = False }
where
enough = 2
{- Lists known repositories, followed by options to add more. -}
getRepositoriesR :: Handler RepHtml

View file

@ -4,7 +4,7 @@
git-annex is watching over your files in <small><tt>#{reldir}</tt></small>
<p>
It will automatically notice changes, and keep files in sync #
$if notenough
$if (null repolist)
with repositories elsewhere ...
<h2>
But no other repositories are set up yet.