diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-26 13:03:08 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-26 13:03:08 -0400 |
| commit | 0c01a949a686aadb2596434cf92990c715ad84a7 (patch) | |
| tree | 6e8f42ccee6fea0a27b0dd9597ec88a049025a14 /Assistant/Threads/PushNotifier.hs | |
| parent | 71a94e5cc6b1249998fe305a971604501e027c7b (diff) | |
SRV record construction
Diffstat (limited to 'Assistant/Threads/PushNotifier.hs')
| -rw-r--r-- | Assistant/Threads/PushNotifier.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/PushNotifier.hs b/Assistant/Threads/PushNotifier.hs index 2784012f2..0686aac7b 100644 --- a/Assistant/Threads/PushNotifier.hs +++ b/Assistant/Threads/PushNotifier.hs @@ -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) |