2 files changed, 12 insertions, 12 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
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index cbd820de..d43535ad 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -140,18 +140,6 @@ forgetCrypto crypto (NCSessions {netCryptoSessions,netCryptoSessionsByKey}) sess
                                                                     [] -> Nothing
                                                                     ys -> Just ys) sPubKey)
 
--- | initiate a netcrypto session, blocking
-netCrypto :: TransportCrypto -> NetCryptoSessions -> SecretKey -> PublicKey -> IO NetCryptoSession
-netCrypto crypto allsessions 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"
-
 newSessionsState :: TransportCrypto
                  -> (MessageType -> NetCryptoHook) -- ^ default hook
                  -> Map.Map MessageType [NetCryptoHook] -- ^ all hooks, can be empty to start