From 186434797dc41c815a07825072a63c9de1b47a25 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 22 May 2013 15:13:31 -0400
Subject: add two long-running XMPP push threads, no more inversion of control

I hope this will be easier to reason about, and less buggy. It was
certianly easier to write!

An immediate benefit is that with a traversable queue of push requests to
select from, the threads can be a lot fairer about choosing which client to
service next.
---
 Assistant.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Assistant.hs')

diff --git a/Assistant.hs b/Assistant.hs
index 36fef049d..7e9f82449 100644
--- a/Assistant.hs
+++ b/Assistant.hs
@@ -37,6 +37,7 @@ import Assistant.Threads.PairListener
 #endif
 #ifdef WITH_XMPP
 import Assistant.Threads.XMPPClient
+import Assistant.Threads.XMPPPusher
 #endif
 #else
 #warning Building without the webapp. You probably need to install Yesod..
@@ -111,6 +112,8 @@ startDaemon assistant foreground listenhost startbrowser = do
 #endif
 #ifdef WITH_XMPP
 			, assist $ xmppClientThread urlrenderer
+			, assist $ xmppSendPackThread urlrenderer
+			, assist $ xmppReceivePackThread urlrenderer
 #endif
 #endif
 			, assist $ pushThread
-- 
cgit v1.2.3