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')
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