diff options
| author | James Crayne <jim.crayne@gmail.com> | 2018-06-18 04:31:24 +0000 |
|---|---|---|
| committer | James Crayne <jim.crayne@gmail.com> | 2018-06-18 04:31:24 +0000 |
| commit | 6de7e6d299254010ebe2fd3fc5fb7c7fd6c89fc6 (patch) | |
| tree | 64b489f886d722918505c467defcd02a1b9e87d2 /src/Network/Tox/Crypto/Handlers.hs | |
| parent | df618d4324af2ed6d0ca8c3c7da361989f31ba3b (diff) | |
send ONLINE automatically
Diffstat (limited to 'src/Network/Tox/Crypto/Handlers.hs')
| -rw-r--r-- | src/Network/Tox/Crypto/Handlers.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index 658032df..58b2b09a 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs | |||
| @@ -797,6 +797,7 @@ runUponHandshake netCryptoSession0 addr pktoq = do | |||
| 797 | -- run announceNewSessionHooks | 797 | -- run announceNewSessionHooks |
| 798 | dput XNetCrypto $ "runUponHandshake: Announcing new session" | 798 | dput XNetCrypto $ "runUponHandshake: Announcing new session" |
| 799 | hooks <- atomically $ readTVar (announceNewSessionHooks sessions) | 799 | hooks <- atomically $ readTVar (announceNewSessionHooks sessions) |
| 800 | sendOnline crypto netCryptoSession | ||
| 800 | flip fix (hooks,netCryptoSession) $ \loop (hooks,session) -> | 801 | flip fix (hooks,netCryptoSession) $ \loop (hooks,session) -> |
| 801 | case hooks of | 802 | case hooks of |
| 802 | [] -> return () | 803 | [] -> return () |