From 6de7e6d299254010ebe2fd3fc5fb7c7fd6c89fc6 Mon Sep 17 00:00:00 2001
From: James Crayne <jim.crayne@gmail.com>
Date: Mon, 18 Jun 2018 04:31:24 +0000
Subject: send ONLINE automatically

---
 src/Network/Tox/Crypto/Handlers.hs | 1 +
 1 file changed, 1 insertion(+)

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
     -- run announceNewSessionHooks
     dput XNetCrypto $ "runUponHandshake: Announcing new session"
     hooks <- atomically $ readTVar (announceNewSessionHooks sessions)
+    sendOnline crypto netCryptoSession
     flip fix (hooks,netCryptoSession) $ \loop (hooks,session) ->
         case hooks of
             [] -> return ()
-- 
cgit v1.2.3