fix incomplete pattern match

1 files changed, 1 insertions, 1 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 45f8e633..20302343 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -313,7 +313,7 @@ netCryptoWithBackoff millisecs tox myseckey theirpubkey = do
                 hPutStrLn stderr ("netCrypto: Already have a session for " ++ show mykeyAsId ++ "<-->" ++ show theirkeyAsId)
                 return matchedSessions
             -- if not, send handshake, this is separate session
-              Nothing -> do
+              _ -> do
                 -- if no session:
                 -- Convert to NodeInfo, so we can send cookieRequest
                 let crypto = toxCryptoKeys tox