Merge pull request #116 from haesbaert/blocksz

Fix wrong Invalid_argument string.
mirleft · Oct 1, 2017 · 0478bfb · 0478bfb
2 parents f602615 + 288fafa
commit 0478bfb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/cipher_block.ml b/src/cipher_block.ml
@@ -284,7 +284,7 @@ module Modes2 = struct
 
     let stream ~key ~ctr ?off n =
       if ctr.len <> block then
-        Raise.invalid "CTR: counter not %d bytes" ctr.len ;
+        Raise.invalid "CTR: counter not %d bytes" block ;
       if n < 0 then
         Raise.invalid "CTR: negative size (%d)" n ;
       match off with