Fix localRootPeersProvider

IntersectMBO · Apr 20, 2022 · 4474ba0 · 4474ba0
1 parent c1d0c10
commit 4474ba0
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/ouroboros-network/src/Ouroboros/Network/PeerSelection/RootPeersDNS.hs b/ouroboros-network/src/Ouroboros/Network/PeerSelection/RootPeersDNS.hs
@@ -196,14 +196,14 @@ localRootPeersProvider tracer
       mapM_ (traceWith tracer . TraceLocalRootFailure domain . DNSError)
             errs
 
-      if null results
-         then return $ Left errs
-         else do
+      if null errs
+         then do
            traceWith tracer (TraceLocalRootResult domain results)
            return $ Right [ (( toPeerAddr addr dapPortNumber
                             , advertisePeer)
                             , _ttl)
                           | (addr, _ttl) <- results ]
+         else return $ Left errs
 
     monitorDomain
       :: Resource m (DNSorIOError exception) resolver