implement join-retry on new cache entries

closes #42
2020-07-04 15:03:28 +02:00 · 2020-07-04 15:03:28 +02:00 · 7c17e3a44d
commit 7c17e3a44d
parent bdb92411c6
2 changed files with 34 additions and 1 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -36,8 +36,9 @@ main = do

        putStrLn $ err <> " Error joining, start listening for incoming requests anyways"
        print =<< readTVarIO thisNode
+        -- launch thread attempting to join on new cache entries
+        _ <- forkIO $ joinOnNewEntriesThread thisNode
        wait =<< async (fediMainThreads serverSock thisNode)
-        -- TODO: periodic retry
           )
           (\joinedNS -> do
        -- launch main eventloop with successfully joined state