1 files changed, 2 insertions, 2 deletions

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