From cbe15d1ce90aa07f5225510728f6071619bbe0d3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 5 May 2019 17:09:20 +0200
Subject: Network: ignore announces from own identity

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

diff --git a/src/Network.hs b/src/Network.hs
index 44f27e7..198efb0 100644
--- a/src/Network.hs
+++ b/src/Network.hs
@@ -106,7 +106,7 @@ peerDiscovery bhost sidentity = do
 
     packet _ sock peer (AnnouncePacket ref) _ = do
         putStrLn $ "Got announce: " ++ show ref ++ " from " ++ show peer
-        void $ sendTo sock (BL.toStrict $ BL.concat
+        when (ref /= storedRef sidentity) $ void $ sendTo sock (BL.toStrict $ BL.concat
             [ serializeObject $ transportToObject $ IdentityRequest ref (storedRef sidentity)
             , lazyLoadBytes $ storedRef sidentity
             , lazyLoadBytes $ storedRef $ signedData $ fromStored sidentity
-- 
cgit v1.2.3