diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-05-22 15:13:31 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-05-22 15:13:31 -0400 |
| commit | 186434797dc41c815a07825072a63c9de1b47a25 (patch) | |
| tree | 94ada4e3a7333a5e87557d5bc6ed51bb977f8e74 /Assistant.hs | |
| parent | dcbb9c33d5e82beb32a1068924f467d968ce9611 (diff) | |
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.
Diffstat (limited to 'Assistant.hs')
| -rw-r--r-- | Assistant.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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 |