From 0666f5108543a5f4433615ca8413c582dc6f94f7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 26 Oct 2012 14:38:04 -0400 Subject: run xmpp test in bound thread --- Assistant/Threads/PushNotifier.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Assistant/Threads/PushNotifier.hs b/Assistant/Threads/PushNotifier.hs index 4ba8d677b..983f0089d 100644 --- a/Assistant/Threads/PushNotifier.hs +++ b/Assistant/Threads/PushNotifier.hs @@ -76,7 +76,7 @@ data XMPPCreds = XMPPCreds connectXMPP :: XMPPCreds -> (JID -> XMPP a) -> IO (Either SomeException ()) connectXMPP c a = case parseJID (xmppJID c) of Nothing -> error "bad JID" - Just jid -> connectXMPP' jid c a + Just jid -> runInBoundThread $ 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 ()) -- cgit v1.2.3