summaryrefslogtreecommitdiff
path: root/src/Network.hs
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2023-08-13 18:38:09 +0200
committerRoman Smrž <roman.smrz@seznam.cz>2023-08-27 12:01:16 +0200
commite4fd563f40bacce33712a84e0b275feb1881ea28 (patch)
tree24c42499518e24f24b5df36c15f3ae4a37451f19 /src/Network.hs
parent251452dfb0c239ac1bc9f70c620a2cdef18ae739 (diff)
Network: send protocol version with announce
Diffstat (limited to 'src/Network.hs')
-rw-r--r--src/Network.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Network.hs b/src/Network.hs
index c5ba393..071a0b0 100644
--- a/src/Network.hs
+++ b/src/Network.hs
@@ -480,6 +480,8 @@ handlePacket identity secure peer chanSvc svcs (TransportHeader headers) prefs =
| otherwise -> addHeader $ Rejected dgst
| otherwise -> throwError $ "service ref without type"
+ _ -> return ()
+
let logd = writeTQueue (serverErrorLog server)
case res of
Left err -> do