fix intro display when there is 1 remote
This commit is contained in:
parent
a1bd5b1fa0
commit
96c7a5ce32
2 changed files with 1 additions and 4 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue