From cc132e005f974577c2ff782add7df8247c4eb541 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 29 Dec 2020 21:39:19 +0100
Subject: Discovery service

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

(limited to 'src/Network.hs')

diff --git a/src/Network.hs b/src/Network.hs
index e09b343..7bb9fea 100644
--- a/src/Network.hs
+++ b/src/Network.hs
@@ -363,7 +363,9 @@ startServer opt origHead logd' services = do
                          Just (SomeServiceGlobalState (_ :: Proxy gs) gs))
                          | Just (Refl :: s :~: gs) <- eqT -> do
                          let inp = ServiceInput
-                                 { svcPeer = peerId
+                                 { svcPeer = peer
+                                 , svcPeerIdentity = peerId
+                                 , svcServer = server
                                  , svcPrintOp = atomically . logd
                                  }
                          reloadHead origHead >>= \case
-- 
cgit v1.2.3