Use pattern guards in getSaltEncrypted.

The use of a `do` block is unnecessary.
cardano-foundation · May 8, 2024 · 427d830 · 427d830
1 parent 5c55276
commit 427d830
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/crypto-primitives/src/Cryptography/Cipher/AES256CBC.hs b/lib/crypto-primitives/src/Cryptography/Cipher/AES256CBC.hs
@@ -170,6 +170,6 @@ decrypt mode key iv msg = do
         WithPadding -> maybeToEither EmptyPayload (PKCS7.unpad p)
 
 getSaltFromEncrypted :: ByteString -> Maybe ByteString
-getSaltFromEncrypted msg = do
-    when (BS.length msg < 32) Nothing
-    BS.take saltLengthBytes <$> BS.stripPrefix saltPrefix msg
+getSaltFromEncrypted msg
+    | BS.length msg < 32 = Nothing
+    | otherwise = BS.take saltLengthBytes <$> BS.stripPrefix saltPrefix msg