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

store xmpp creds from form

Browse source
This commit is contained in:
Joey Hess 2012-10-26 17:13:30 -04:00
parent 1d04dff4f0
commit 6803667f00
3 changed files with 26 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/Configurators.hs
View file

@ -16,6 +16,7 @@ import Assistant.WebApp.SideBar
import Assistant.WebApp.Utility
import Assistant.WebApp.Configurators.Local
import Assistant.DaemonStatus
import Assistant.XMPP
import Utility.Yesod
import qualified Remote
import qualified Types.Remote as Remote
@ -33,6 +34,7 @@ getConfigR :: Handler RepHtml
getConfigR = ifM (inFirstRun)
( getFirstRepositoryR
, bootstrap (Just Config) $ do
xmppconfigured <- lift $ runAnnex False $ isJust <$> getXMPPCreds
sideBarDisplay
setTitle "Configuration"
$(widgetFile "configurators/main")