From 2e33437143d501356862699920897913b387dd0a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 9 Jan 2020 21:15:21 +0100
Subject: Announce self when requesting unknown peer identity

---
 src/Network.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Network.hs b/src/Network.hs
index b7d3c2f..d71e9d8 100644
--- a/src/Network.hs
+++ b/src/Network.hs
@@ -336,7 +336,9 @@ handlePacket logd identity secure opeer chanSvc (TransportHeader headers) = do
                                              throwError $ "peer identity does not follow"
                                          _ -> updatePeer $ \p -> p { peerIdentity = PeerIdentityFull idt }
                                 | otherwise -> throwError $ "broken identity " ++ show pref
-                            Left wref -> updatePeer $ \p -> p { peerIdentity = PeerIdentityRef wref }
+                            Left wref -> do
+                                addHeader $ AnnounceSelf $ partialRef (peerInStorage peer) $ storedRef $ idData identity
+                                updatePeer $ \p -> p { peerIdentity = PeerIdentityRef wref }
 
             AnnounceUpdate ref -> do
                 peer <- gets phPeer
-- 
cgit v1.2.3