run xmpp test in bound thread

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 ())

Assistant/WebApp/Configurators/XMPP.hs

@@ -26,6 +26,7 @@ import Network
 import Network.Protocol.XMPP
 import Data.Text (Text)
 import qualified Data.Text as T
+import Control.Concurrent
 #endif
 
 getXMPPR :: Handler RepHtml