From 28e7ca5dd25ece91686853a4264b3a38730bea38 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 10 Oct 2026 14:46:48 +0200
Subject: Fix tunnel offer for peers without inet addresses

Changelog: Fixed tunnel offer for peers without inet addresses.
---
 src/Erebos/Discovery.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Erebos/Discovery.hs b/src/Erebos/Discovery.hs
index c287448..53cf744 100644
--- a/src/Erebos/Discovery.hs
+++ b/src/Erebos/Discovery.hs
@@ -242,14 +242,14 @@ emptyPeer = DiscoveryPeer
 viaFromPeer :: DiscoveryAttributes -> Peer -> DiscoveryPeer -> IO (Maybe DiscoveryVia)
 viaFromPeer attrs peer DiscoveryPeer {..}
     | Just dpeer <- dpPeer
-    , _ : _ <- dpAddress
     = do
         getPeerIdentity dpeer >>= \case
             PeerIdentityFull pid -> do
                 offerTunnel <- offerTunnelBetween attrs peer dpeer
                 let viaAddress = (if offerTunnel then (++ [ DiscoveryTunnel ]) else id) dpAddress
                 let viaIdentity = refDigest $ storedRef $ idData pid
-                return $ Just DiscoveryVia {..}
+                return $ if null viaAddress then Nothing
+                                            else Just DiscoveryVia {..}
             _ -> return Nothing
     | otherwise
     = return Nothing
-- 
cgit v1.2.3