SRV record construction
This commit is contained in:
parent
5544ca2fb8
commit
a11fb94c65
2 changed files with 15 additions and 4 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue