simplify
This commit is contained in:
parent
59733456ed
commit
3dfc9cadb0
20 changed files with 28 additions and 49 deletions
|
@ -70,9 +70,7 @@ getXMPPR' redirto = xmppPage $ do
|
|||
oldcreds <- runAnnex Nothing getXMPPCreds
|
||||
runFormGet $ renderBootstrap $ xmppAForm $
|
||||
creds2Form <$> oldcreds
|
||||
let showform problem = do
|
||||
let authtoken = webAppFormAuthToken
|
||||
$(widgetFile "configurators/xmpp")
|
||||
let showform problem = $(widgetFile "configurators/xmpp")
|
||||
case result of
|
||||
FormSuccess f -> either (showform . Just . show) (lift . storecreds)
|
||||
=<< liftIO (validateForm f)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue