From daeaa4fd91bce1626d126628a2f04d7653c8069a Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Fri, 17 Jan 2020 05:27:02 -0500 Subject: Send KillPacket when session terminates. --- dht/src/Network/Tox/Session.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/dht/src/Network/Tox/Session.hs b/dht/src/Network/Tox/Session.hs index 9bd12c69..cbb516a7 100644 --- a/dht/src/Network/Tox/Session.hs +++ b/dht/src/Network/Tox/Session.hs @@ -94,7 +94,9 @@ sTheirUserKey s = longTermKey $ runIdentity cookie -- | Helper to close the 'Transport' associated with a session. sClose :: Session -> IO () -sClose s = closeTransport (sTransport s) +sClose s = do + sendMessage (sTransport s) () (Pkt KillPacket ==> ()) + closeTransport (sTransport s) -- | Call this whenever a new handshake arrives so that a session is -- cgit v1.2.3