From c9783a10cf1a3df42dab5691d55e1644bfc5593c Mon Sep 17 00:00:00 2001
From: Trolli Schmittlauch <t.schmittlauch@orlives.de>
Date: Wed, 24 Jun 2020 02:51:28 +0200
Subject: [PATCH] launch stabilise thread

closes #44

although stabilise functionality is still untested
---
 src/Hash2Pub/FediChord.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/Hash2Pub/FediChord.hs b/src/Hash2Pub/FediChord.hs
index b013bdc..c425683 100644
--- a/src/Hash2Pub/FediChord.hs
+++ b/src/Hash2Pub/FediChord.hs
@@ -307,9 +307,10 @@ fediMainThreads sock nsSTM = do
     -- all get cancelled
     concurrently_
         (fediMessageHandler sendQ recvQ nsSTM) $
-        concurrently
-            (sendThread sock sendQ)
-            (recvThread sock recvQ)
+        concurrently_ (stabiliseThread nsSTM) $
+            concurrently_
+                (sendThread sock sendQ)
+                (recvThread sock recvQ)
 
 
 -- defining this here as, for now, the RequestMap is only used by fediMessageHandler.