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

fix intro display when there is 1 remote

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/WebApp/Configurators.hs
View file

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

2
templates/configurators/intro.hamlet
View file

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