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

webapp: Switch all forms to POST.

Browse source
This commit is contained in:
Joey Hess 2013-03-16 18:48:23 -04:00
parent 26374f40a9
commit 140774a8c8
25 changed files with 122 additions and 75 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/WebApp/Configurators/XMPP.hs
View file

@ -93,11 +93,13 @@ needCloudRepoR = xmppPage $
#endif
getXMPPR :: Handler RepHtml
getXMPPR = postXMPPR
postXMPPR :: Handler RepHtml
#ifdef WITH_XMPP
getXMPPR = xmppPage $ do
postXMPPR = xmppPage $ do
((result, form), enctype) <- lift $ do
oldcreds <- liftAnnex getXMPPCreds
runFormGet $ renderBootstrap $ xmppAForm $
runFormPost $ renderBootstrap $ xmppAForm $
creds2Form <$> oldcreds
let showform problem = $(widgetFile "configurators/xmpp")
case result of