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

SRV record construction

Browse source
This commit is contained in:
Joey Hess 2012-10-26 13:03:08 -04:00
parent 5544ca2fb8
commit a11fb94c65
2 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/Threads/PushNotifier.hs
View file

@ -83,7 +83,7 @@ connectXMPP c a = case parseJID (xmppJID c) of
connectXMPP' :: JID -> XMPPCreds -> (JID -> XMPP a) -> IO (Either SomeException ())
connectXMPP' jid c a = go =<< lookupSRV srvrecord
where
srvrecord = "_xmpp-client._tcp." ++ (T.unpack $ strDomain $ jidDomain jid)
srvrecord = mkSRVTcp "xmpp-client" (T.unpack $ strDomain $ jidDomain jid)
serverjid = JID Nothing (jidDomain jid) Nothing
go [] = run (xmppHostname c)