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

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

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

4
Assistant/WebApp/Configurators.hs
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