From 8bcaaf5524504f01bd5643d74848cec625370aa9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Mon, 28 Jul 2025 16:48:15 +0200 Subject: Peer address input in ServiceHandler --- src/Erebos/Network.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Erebos/Network.hs') diff --git a/src/Erebos/Network.hs b/src/Erebos/Network.hs index 3aa1a3f..76ecd82 100644 --- a/src/Erebos/Network.hs +++ b/src/Erebos/Network.hs @@ -1001,6 +1001,7 @@ runPeerServiceOn mbservice newStreams peer handler = liftIO $ do let inp = ServiceInput { svcAttributes = attr , svcPeer = peer + , svcPeerAddress = peerAddress peer , svcPeerIdentity = peerId , svcServer = server , svcPrintOp = atomically . logd -- cgit v1.2.3