launch stabilise thread

closes #44 although stabilise functionality is still untested
2020-06-24 02:51:28 +02:00 · 2020-06-24 02:51:28 +02:00 · c9783a10cf
parent 81e346db4e
commit c9783a10cf
1 changed files with 4 additions and 3 deletions
--- a/src/Hash2Pub/FediChord.hs
+++ b/src/Hash2Pub/FediChord.hs
@ -307,7 +307,8 @@ fediMainThreads sock nsSTM = do
    -- all get cancelled
    concurrently_
        (fediMessageHandler sendQ recvQ nsSTM) $
-        concurrently
+        concurrently_ (stabiliseThread nsSTM) $
+            concurrently_
                (sendThread sock sendQ)
                (recvThread sock recvQ)