From 4474ba0454a5f8f4c1964ce147075ea77fac0399 Mon Sep 17 00:00:00 2001
From: Armando Santos <armando@well-typed.com>
Date: Wed, 20 Apr 2022 10:19:58 +0100
Subject: [PATCH] Fix localRootPeersProvider

---
 .../src/Ouroboros/Network/PeerSelection/RootPeersDNS.hs     | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ouroboros-network/src/Ouroboros/Network/PeerSelection/RootPeersDNS.hs b/ouroboros-network/src/Ouroboros/Network/PeerSelection/RootPeersDNS.hs
index 277bacd78e5..344860c16fc 100644
--- 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