summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Network/Tox/Crypto/Handlers.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index fc90d01a..9d1da606 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -428,7 +428,7 @@ runCryptoHook session@(NCrypto {ncState, ncHooks,ncSessionSecret,ncTheirSessionP
428 msgTypMapped16 = msgTypes A.! fromEnum8 (msgID cm) 428 msgTypMapped16 = msgTypes A.! fromEnum8 (msgID cm)
429 msgTypMapped = fromWord16 $ msgTypMapped16 429 msgTypMapped = fromWord16 $ msgTypMapped16
430 if msgTypMapped16 == 0 430 if msgTypMapped16 == 0
431 then return $ Just id 431 then return Nothing
432 else 432 else
433 case Map.lookup msgTypMapped hookmap of 433 case Map.lookup msgTypMapped hookmap of
434 Nothing -> do -- no recognizing hook, run ncUnrecognizedHook0, loopAgain on result 434 Nothing -> do -- no recognizing hook, run ncUnrecognizedHook0, loopAgain on result