diff options
Diffstat (limited to 'Assistant/XMPP.hs')
-rw-r--r-- | Assistant/XMPP.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Assistant/XMPP.hs b/Assistant/XMPP.hs index d71bd7eaf..75d948cbd 100644 --- a/Assistant/XMPP.hs +++ b/Assistant/XMPP.hs @@ -28,11 +28,10 @@ data XMPPCreds = XMPPCreds } deriving (Read, Show) -{- Note that this must be run in a bound thread; gnuTLS requires it. -} connectXMPP :: XMPPCreds -> (JID -> XMPP a) -> IO (Either SomeException ()) connectXMPP c a = case parseJID (xmppJID c) of Nothing -> error "bad JID" - Just jid -> runInBoundThread $ connectXMPP' jid c a + Just jid -> connectXMPP' jid c a {- Do a SRV lookup, but if it fails, fall back to the cached xmppHostname. -} connectXMPP' :: JID -> XMPPCreds -> (JID -> XMPP a) -> IO (Either SomeException ()) |