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

another no-xmpp fix

Browse source
This commit is contained in:
Joey Hess 2013-04-16 19:23:26 -04:00
parent 9f7bef4750
commit c1b682cb8f
2 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Assistant/WebApp/Configurators/Pairing.hs
View file

@ -87,9 +87,6 @@ getStartXMPPPairSelfR = go =<< liftAnnex getXMPPCreds
$(widgetFile "configurators/pairing/xmpp/self/prompt")
#else
getStartXMPPPairSelfR = noXMPPPairing
noXMPPPairing :: Handler RepHtml
noXMPPPairing = noPairing "XMPP"
#endif
getRunningXMPPPairFriendR :: BuddyKey -> Handler RepHtml
@ -187,7 +184,7 @@ getFinishXMPPPairFriendR (PairKey theiruuid t) = case parseJID t of
finishXMPPPairing theirjid theiruuid
xmppPairStatus False $ Just theirjid
#else
getFinishXMPPPairR _ = noXMPPPairing
getFinishXMPPPairFriendR _ = noXMPPPairing
#endif
{- Displays a page indicating pairing status and