From 92a8e6da3edbf53b6f38ab46e7397b13980cbc31 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Wed, 15 Nov 2017 09:08:36 +0000 Subject: keep it simple,drop unsupported messages, no returning id --- src/Network/Tox/Crypto/Handlers.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Network/Tox/Crypto') 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 msgTypMapped16 = msgTypes A.! fromEnum8 (msgID cm) msgTypMapped = fromWord16 $ msgTypMapped16 if msgTypMapped16 == 0 - then return $ Just id + then return Nothing else case Map.lookup msgTypMapped hookmap of Nothing -> do -- no recognizing hook, run ncUnrecognizedHook0, loopAgain on result -- cgit v1.2.3