summaryrefslogtreecommitdiff
path: root/src/Network.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network.hs')
-rw-r--r--src/Network.hs4
1 files changed, 3 insertions, 1 deletions
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