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