From 0ef84b829ef2b27ce73dc84ad549d6099b28c377 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 13 Aug 2023 13:06:23 +0200
Subject: Network: remove socket from peer's DatagramAddress

---
 src/Discovery.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Discovery.hs')

diff --git a/src/Discovery.hs b/src/Discovery.hs
index f419eab..a05fdac 100644
--- a/src/Discovery.hs
+++ b/src/Discovery.hs
@@ -107,7 +107,7 @@ instance Service DiscoveryService where
             let insertHelper new old | dpPriority new > dpPriority old = new
                                      | otherwise                       = old
             mbaddr <- case words (T.unpack addr) of
-                [ipaddr, port] | DatagramAddress _ paddr <- peerAddress peer -> do
+                [ipaddr, port] | DatagramAddress paddr <- peerAddress peer -> do
                     saddr <- liftIO $ head <$> getAddrInfo (Just $ defaultHints { addrSocketType = Datagram }) (Just ipaddr) (Just port)
                     return $ if paddr == addrAddress saddr
                                 then Just addr
-- 
cgit v1.2.3