summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Pairing.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Pairing.hs b/src/Pairing.hs
index 460dd55..ce176a6 100644
--- a/src/Pairing.hs
+++ b/src/Pairing.hs
@@ -148,7 +148,7 @@ nonceDigest id1 id2 nonce1 nonce2 = hashToRefDigest $ serializeObject $ Rec
confirmationNumber :: RefDigest -> String
confirmationNumber dgst = let (a:b:c:d:_) = map fromIntegral $ BA.unpack dgst :: [Word32]
- str = show $ (a .|. (b `shift` 8) .|. (c `shift` 16) .|. (d `shift` 24)) `mod` (10 ^ len)
+ str = show $ ((a `shift` 24) .|. (b `shift` 16) .|. (c `shift` 8) .|. d) `mod` (10 ^ len)
in replicate (len - length str) '0' ++ str
where len = 6