Rename {iv,key} parameters of encrypt.

cardano-foundation · Apr 10, 2024 · ed08b6e · ed08b6e
1 parent 1f2709e
commit ed08b6e
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lib/crypto-primitives/src/Cryptography/Cipher/AES256CBC.hs b/lib/crypto-primitives/src/Cryptography/Cipher/AES256CBC.hs
@@ -105,17 +105,17 @@ encrypt
     -> ByteString
     -- ^ Payload: must be a multiple of a block size, ie., 16 bytes.
     -> Either CipherError ByteString
-encrypt mode key iv saltM msg
+encrypt mode keyBytes ivBytes saltM msg
     | any ((/= 8) . BS.length) saltM =
         Left WrongSaltSize
     | mode == WithoutPadding && BS.length msg `mod` 16 /= 0 =
         Left WrongPayloadSize
     | BS.null msg =
         Left EmptyPayload
     | otherwise = do
-        initedIV <- first FromCryptonite (createIV iv)
-        cypher <- first FromCryptonite (initCipher key)
-        pure $ maybeAddSalt $ cbcEncrypt cypher initedIV $ maybePad msg
+        iv <- first FromCryptonite (createIV ivBytes)
+        cypher <- first FromCryptonite (initCipher keyBytes)
+        pure $ maybeAddSalt $ cbcEncrypt cypher iv $ maybePad msg
   where
     maybeAddSalt :: ByteString -> ByteString
     maybeAddSalt =