summaryrefslogtreecommitdiff
path: root/src/Network
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network')
-rw-r--r--src/Network/Tox/Crypto/Handlers.hs1
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 ()