From b42c0d847a785487f3222b0d5360746d25d3209c Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Thu, 14 Nov 2019 16:45:14 -0500 Subject: Cv25519 encryption. --- Data/OpenPGP/Util/Ed25519.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Data/OpenPGP/Util/Ed25519.hs') diff --git a/Data/OpenPGP/Util/Ed25519.hs b/Data/OpenPGP/Util/Ed25519.hs index 7504e7e..67eeba3 100644 --- a/Data/OpenPGP/Util/Ed25519.hs +++ b/Data/OpenPGP/Util/Ed25519.hs @@ -43,8 +43,8 @@ ed25519Key k = x = keyParam 'x' k ybs = zeroExtend 32 $ integerToLE y lb = BS.last ybs - in if x < 0 then BS.take 31 ybs `BS.snoc` (lb .|. 1) - else BS.take 31 ybs `BS.snoc` (lb .&. 0xFE) + in if x < 0 then BS.take 31 ybs `BS.snoc` (lb .|. 0x80) + else BS.take 31 ybs `BS.snoc` (lb .&. 0x7F) in case Ed25519.publicKey n of CryptoPassed ed25519 -> Just ed25519 CryptoFailed _ -> Nothing -- cgit v1.2.3