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.