Allow non-JID (standard tox hex) input for NoSpamId.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/Crypto/Tox.hs b/src/Crypto/Tox.hs
index 8bb822d8..9b7e82c0 100644
--- a/src/Crypto/Tox.hs
+++ b/src/Crypto/Tox.hs
@@ -594,12 +594,13 @@ decodeSecret k64 = do
         CryptoPassed x -> Just x
         _              -> Nothing
 
+-- Treats byte pairs as big-endian.
 xorsum :: ByteArrayAccess ba => ba -> Word16
 xorsum bs = unsafeDupablePerformIO $ BA.withByteArray bs $ \ptr16 -> do
     let (wcnt,r) = BA.length bs `divMod` 2
         loop cnt !ac = do
             ac' <- xor ac <$> peekElemOff ptr16 cnt
-            case cnt of 0 -> return ac'
+            case cnt of 0 -> return $ fromBE16 ac'
                         _ -> loop (cnt - 1) ac'
     loop (wcnt - 1) $ case r of
         0 -> 0