remove obsolete receiveCrypto function

1 files changed, 0 insertions, 12 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index ef7afe98..59e78213 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -280,18 +280,6 @@ ncToWire getState seqno bufend pktno msg = do
                                         pkt = CryptoPacket { pktNonce = nonce24ToWord16 n24, pktData = encrypted }
                                         in return (Just (pkt, pktno+1))
 
--- | Blocks until a packet is available, or the session is terminated.
-receiveCrypto :: NetCryptoSession -> IO (Maybe CryptoMessage)
-receiveCrypto nc@NCrypto { ncState, ncPacketQueue } = do
-    cd <- atomically $ do
-            st <- readTVar ncState
-            case st of
-                Accepted  -> Just <$> PQ.dequeue ncPacketQueue
-                Confirmed -> Just <$> PQ.dequeue ncPacketQueue
-                _         -> pure Nothing
-    forM_ cd $ runCryptoHook nc -- TODO: Is this useful?
-    return $ bufferData <$> cd
-
 -- | called when we recieve a crypto handshake with valid cookie
 -- TODO set priority on contact addr to 0 if it is older than ForgetPeriod,
 -- then increment it regardless. (Keep addr in MinMaxPSQ in Roster.Contact)