diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-11-04 04:26:47 -0500 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-11-04 04:26:47 -0500 |
| commit | e0fc956953100a375ef1e325d8e5d53b96de0749 (patch) | |
| tree | 953ca18f7f834ece22562344d07a35e916a37967 /src/Network/Tox/AggregateSession.hs | |
| parent | c5ae81e491af14ff3f6608e284eb33bc9f124745 (diff) | |
Fixed redundant session close and memory leak.
Diffstat (limited to 'src/Network/Tox/AggregateSession.hs')
| -rw-r--r-- | src/Network/Tox/AggregateSession.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/Tox/AggregateSession.hs b/src/Network/Tox/AggregateSession.hs index b248c96f..513896cc 100644 --- a/src/Network/Tox/AggregateSession.hs +++ b/src/Network/Tox/AggregateSession.hs | |||
| @@ -306,7 +306,7 @@ awaitAny :: AggregateSession -> STM (Maybe (Int,CryptoMessage)) | |||
| 306 | awaitAny c = readTMChan (contactChannel c) | 306 | awaitAny c = readTMChan (contactChannel c) |
| 307 | 307 | ||
| 308 | -- | Close all connections associated with the aggregate. No new sessions will | 308 | -- | Close all connections associated with the aggregate. No new sessions will |
| 309 | -- be accempted after this, and the notify callback will be informed that we've | 309 | -- be accepted after this, and the notify callback will be informed that we've |
| 310 | -- transitioned to 'Dormant'. | 310 | -- transitioned to 'Dormant'. |
| 311 | closeAll :: AggregateSession -> IO () | 311 | closeAll :: AggregateSession -> IO () |
| 312 | closeAll c = join $ atomically $ do | 312 | closeAll c = join $ atomically $ do |