diff options
Diffstat (limited to 'src')
-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 () |