This commit is contained in:
Joey Hess 2013-10-02 01:06:59 -04:00
parent 028b0d8961
commit dfdaa649d0
13 changed files with 38 additions and 34 deletions

View file

@ -17,7 +17,7 @@ import Assistant.XMPP.Client
{- The main configuration screen. -}
getConfigurationR :: Handler Html
getConfigurationR = ifM (inFirstRun)
getConfigurationR = ifM inFirstRun
( redirect FirstRepositoryR
, page "Configuration" (Just Configuration) $ do
#ifdef WITH_XMPP