From a69cd845e9daa95527b6c497dd7c75293bbeb917 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 8 Nov 2026 15:40:59 +0100 Subject: Remove ByteArray constraints from internal crypto API --- src/crypto/crypton/Crypto.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/crypto/crypton') diff --git a/src/crypto/crypton/Crypto.hs b/src/crypto/crypton/Crypto.hs index 015bdb2..c933b0a 100644 --- a/src/crypto/crypton/Crypto.hs +++ b/src/crypto/crypton/Crypto.hs @@ -39,7 +39,6 @@ import Crypto.PubKey.Ed25519 qualified as Ed import Crypto.Random import Crypto.Random.Entropy -import Data.ByteArray (ByteArray) import Data.ByteArray qualified as BA import Data.ByteString (ByteString) @@ -70,10 +69,10 @@ aeadAppendAAD = C.appendAAD aeadFinalizeAAD :: AeadState -> AeadState aeadFinalizeAAD = C.finalizeAAD -encrypt :: ByteArray ba => ba -> AeadState -> ( ba, AeadState ) +encrypt :: ByteString -> AeadState -> ( ByteString, AeadState ) encrypt = C.encrypt -decrypt :: ByteArray ba => ( ba, Auth ) -> AeadState -> Maybe ba +decrypt :: ( ByteString, Auth ) -> AeadState -> Maybe ByteString decrypt ( ctext, auth ) st = do let ( plain, st' ) = C.decrypt ctext st guard (C.finalize st' `BA.constEq` auth) -- cgit v1.2.3