1 files changed, 12 insertions, 0 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 1567ef1a..4ce7c398 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -241,6 +241,18 @@ data Tox = Tox
     , toxManager        :: Connection.Manager ConnectionStatus ConnectionKey
     }
 
+-- | initiate a netcrypto session, blocking
+netCrypto :: Tox -> SecretKey -> PublicKey -> IO NetCryptoSession
+netCrypto tox myseckey theirpubkey = do
+-- convert public key to NodeInfo check Roster
+-- if no session:
+-- 1) send dht key, actually maybe send dht-key regardless
+-- 2) send handshakes to last seen ip's, if any
+--
+-- if sessions found, is it using this private key?
+-- if not, send handshake, this is separate session
+    error "todo"
+
 getContactInfo :: Tox -> IO DHT.DHTPublicKey
 getContactInfo Tox{toxCryptoKeys,toxRouting} = join $ atomically $ do
     r4 <- readTVar $ DHT.routing4 toxRouting