last2Bytes should be Word16

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 5946c530..cd227a4d 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -657,7 +657,7 @@ cryptoNetHandler sessions addr (NetCrypto (CryptoPacket nonce16 encrypted)) = do
             theirBaseNonce <- atomically $ readTVar ncTheirBaseNonce
             -- Try to decrypt message
             let diff :: Word16
-                diff      = nonce16 - fromIntegral (last2Bytes theirBaseNonce) -- truncating to Word16
+                diff      = nonce16 - (last2Bytes theirBaseNonce) -- truncating to Word16
                 tempNonce = addtoNonce24 theirBaseNonce (fromIntegral diff)    -- expanding to Word
             lr <- fmap join $ sequence $ do -- Either Monad --
                         pubkey <- maybeToEither ncTheirSessionPublic
@@ -698,7 +698,7 @@ cryptoNetHandler sessions addr (NetCrypto (CryptoPacket nonce16 encrypted)) = do
                         else do atomically $ PQ.enqueue ncPacketQueue bufferEnd cd
                                 return Nothing
     where
-        last2Bytes :: Nonce24 -> Word
+        last2Bytes :: Nonce24 -> Word16
         last2Bytes (Nonce24 bs) = case S.decode (B.drop 22 bs) of
                                     Right n -> n
                                     _ -> error "unreachable-last2Bytes"