chacha

commit 6a6281342faa0e9adaa5fce1e85de84b058e49ae
parent 12f9b40459a470f2e870b041ac89fd92877287c8
Author: Jared Tobin <jared@jtobin.io>
Date:   Tue, 24 Jun 2025 07:40:47 +0400

lib: axe comment

Not sure what this referred to exactly, though I've replaced the length
call with the information in the pattern synonym anyway.

Diffstat:
M
lib/Crypto/Cipher/ChaCha20.hs
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/Crypto/Cipher/ChaCha20.hs b/lib/Crypto/Cipher/ChaCha20.hs
@@ -360,8 +360,8 @@ _cipher key counter nonce plaintext = do
   state@(ChaCha s) <- _chacha_alloc
 
   let loop acc !j bs = case BS.splitAt 64 bs of
-        (chunk@(BI.PS _ _ l), etc)
-          | l == 0 && BS.length etc == 0 -> pure $ -- XX
+        (chunk@(BI.PS _ _ l), etc@(BI.PS _ _ le))
+          | l == 0 && le == 0 -> pure $
               BS.toStrict (BSB.toLazyByteString acc)
           | otherwise -> do
               PA.copyMutablePrimArray s 0 initial 0 16