diff options
Diffstat (limited to 'src/Erebos/Network.hs')
| -rw-r--r-- | src/Erebos/Network.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |