keep it simple,drop unsupported messages, no returning id

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
             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