From df7423ce2ea1d16f5a09c21ece5fccbdce2a6510 Mon Sep 17 00:00:00 2001
From: Trolli Schmittlauch <t.schmittlauch@orlives.de>
Date: Sun, 5 Jul 2020 18:18:51 +0200
Subject: [PATCH] fixup! iteration limit for QueryID lookups

---
 src/Hash2Pub/FediChord.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Hash2Pub/FediChord.hs b/src/Hash2Pub/FediChord.hs
index 5470731..1e992bc 100644
--- a/src/Hash2Pub/FediChord.hs
+++ b/src/Hash2Pub/FediChord.hs
@@ -187,7 +187,7 @@ joinOnNewEntriesThread nsSTM = loop
             case queryLocalCache nsSnap cache 1 (getNid nsSnap) of
               -- empty cache, block until cache changes and then retry
               (FORWARD s) | Set.null s -> retry
-              result -> pure (result, cache)
+              result                   -> pure (result, cache)
         case lookupResult of
           -- already joined
           FOUND _ -> do
@@ -200,7 +200,7 @@ joinOnNewEntriesThread nsSTM = loop
                 -- on join failure, sleep and retry
                 -- TODO: make delay configurable
                 (const $ threadDelay (30 * 10^6) >> loop)
-                (const $ pure ()) 
+                (const $ pure ())
                 joinResult
     emptyset = Set.empty    -- because pattern matches don't accept qualified names