fixup! iteration limit for QueryID lookups

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