diff options
Diffstat (limited to 'dht/src')
-rw-r--r-- | dht/src/Network/Tox/Session.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 | |||
94 | 94 | ||
95 | -- | Helper to close the 'Transport' associated with a session. | 95 | -- | Helper to close the 'Transport' associated with a session. |
96 | sClose :: Session -> IO () | 96 | sClose :: Session -> IO () |
97 | sClose s = closeTransport (sTransport s) | 97 | sClose s = do |
98 | sendMessage (sTransport s) () (Pkt KillPacket ==> ()) | ||
99 | closeTransport (sTransport s) | ||
98 | 100 | ||
99 | 101 | ||
100 | -- | Call this whenever a new handshake arrives so that a session is | 102 | -- | Call this whenever a new handshake arrives so that a session is |