fix nonexaustive pattern

1 files changed, 3 insertions, 2 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index f31a62e4..dbfaede6 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -1278,10 +1278,11 @@ defaultCryptoDataHooks
             ]
 
 defaultKillHook :: NetCryptoSession -> CryptoMessage -> IO (Maybe (CryptoMessage -> CryptoMessage))
-defaultKillHook session cm@(OneByte {msgID=KillPacket}) = do
+defaultKillHook session cm@(msgID -> KillPacket) = do
     dput XNetCrypto $ "Recieved kill packet (sessionid: " ++ show (ncSessionId session) ++ ") destroying session"
     destroySession session
-    return Nothing
+    return (Just $ \m -> m)
+defaultKillHook _ _ = return (Just $ \cm -> cm)
 
 defaultUserStatusHook :: NetCryptoSession -> CryptoMessage -> IO (Maybe (CryptoMessage -> CryptoMessage))
 defaultUserStatusHook session cm@(TwoByte {msgID=USERSTATUS, msgByte=statusByte}) = do