From 796c31765a576b8b24acebd32f0797c1a64f3667 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:48:29 +0100
Subject: Network: do not send empty service response

---
 src/Network.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Network.hs')

diff --git a/src/Network.hs b/src/Network.hs
index 7bb9fea..d1343f4 100644
--- a/src/Network.hs
+++ b/src/Network.hs
@@ -375,8 +375,9 @@ startServer opt origHead logd' services = do
                                  putTMVar svcStates global
                              Just h -> do
                                  (rsp, (s', gs')) <- handleServicePacket h inp s gs (wrappedLoad ref :: Stored s)
-                                 identity <- readMVar midentity
-                                 sendToPeerList identity peer rsp
+                                 when (not (null rsp)) $ do
+                                     identity <- readMVar midentity
+                                     sendToPeerList identity peer rsp
                                  atomically $ do
                                      putTMVar (peerServiceState peer) $ M.insert svc (SomeServiceState proxy s') svcs
                                      putTMVar svcStates $ M.insert svc (SomeServiceGlobalState proxy gs') global
-- 
cgit v1.2.3