aead

commit 575c92b3a417af978dacea4e4a34a0316b01c71d
parent 65bccd86c7bf525268bc3b1c4e53a2709919f822
Author: Jared Tobin <jared@jtobin.io>
Date:   Tue, 11 Mar 2025 09:12:10 +0400

lib: fix padding error

Diffstat:
M
lib/Crypto/AEAD/ChaCha20Poly1305.hs
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lib/Crypto/AEAD/ChaCha20Poly1305.hs b/lib/Crypto/AEAD/ChaCha20Poly1305.hs
@@ -63,7 +63,9 @@ _poly1305_key_gen key@(BI.PS _ _ l) nonce
 {-# INLINEABLE _poly1305_key_gen #-}
 
 pad16 :: BS.ByteString -> BS.ByteString
-pad16 (BI.PS _ _ l) = BS.replicate (16 - l `rem` 16) 0
+pad16 (BI.PS _ _ l)
+  | l == 16   = mempty
+  | otherwise = BS.replicate (16 - l `rem` 16) 0
 {-# INLINE pad16 #-}
 
 -- RFC8439 2.8