make liftAnnex and liftAssistant polymorphic, like liftIO
This commit is contained in:
parent
d640df7378
commit
c94c99942b
17 changed files with 66 additions and 50 deletions
|
@ -22,7 +22,7 @@ getConfigurationR = ifM (inFirstRun)
|
|||
( getFirstRepositoryR
|
||||
, page "Configuration" (Just Configuration) $ do
|
||||
#ifdef WITH_XMPP
|
||||
xmppconfigured <- lift $ liftAnnex $ isJust <$> getXMPPCreds
|
||||
xmppconfigured <- liftAnnex $ isJust <$> getXMPPCreds
|
||||
#else
|
||||
let xmppconfigured = False
|
||||
#endif
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue