avoid listing glacier when prompting to set up a transfer repository after xmpp

This commit is contained in:
Joey Hess 2013-03-07 13:01:18 -04:00
parent 265e440d22
commit 6e7a43ab61
4 changed files with 10 additions and 9 deletions

View file

@ -57,8 +57,8 @@ introDisplay ident = do
makeMiscRepositories :: Widget
makeMiscRepositories = $(widgetFile "configurators/repositories/misc")
makeCloudRepositories :: Widget
makeCloudRepositories = $(widgetFile "configurators/repositories/cloud")
makeCloudRepositories :: Bool -> Widget
makeCloudRepositories onlyTransfer = $(widgetFile "configurators/repositories/cloud")
{- Lists known repositories, followed by options to add more. -}
getRepositoriesR :: Handler RepHtml