From e2b0e9ee6b3c07e9f389f869ed48e6e12f6f2257 Mon Sep 17 00:00:00 2001
From: John Galt <centromere@users.noreply.github.com>
Date: Mon, 18 Apr 2016 13:25:11 -0700
Subject: [PATCH] [Ed448] Fixed incorrect base point

---
 Crypto/PubKey/Ed448.hs | 2 +-
 tests/KAT_Ed448.hs     | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Crypto/PubKey/Ed448.hs b/Crypto/PubKey/Ed448.hs
index 0a5c069..af22176 100644
--- a/Crypto/PubKey/Ed448.hs
+++ b/Crypto/PubKey/Ed448.hs
@@ -89,7 +89,7 @@ toPublic (SecretKey sec) = PublicKey <$>
     withByteArray sec               $ \psec   ->
         ccryptonite_ed448 result psec basePoint
   where
-        basePoint = Ptr "\x05\x00\x00\x00\x00\x00\x00\x00\x00x00\x00\x00\x00\x00\x00\x00\x00x00\x00\x00\x00\x00\x00\x00\x00x00\x00\x00\x00\x00\x00\x00\x00x00\x00\x00\x00\x00\x00\x00\x00x00\x00\x00\x00\x00\x00\x00\x00x00\x00\x00\x00\x00\x00\x00"#
+        basePoint = Ptr "\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
 {-# NOINLINE toPublic #-}
 
 x448_bytes :: Int
diff --git a/tests/KAT_Ed448.hs b/tests/KAT_Ed448.hs
index cc1c022..cbc8756 100644
--- a/tests/KAT_Ed448.hs
+++ b/tests/KAT_Ed448.hs
@@ -16,6 +16,8 @@ katTests :: [TestTree]
 katTests =
     [ testCase "0" (aliceMultBob @=? B.convert (Ed448.dh alicePublic bobPrivate))
     , testCase "1" (aliceMultBob @=? B.convert (Ed448.dh bobPublic alicePrivate))
+    , testCase "2" (alicePublic  @=? Ed448.toPublic alicePrivate)
+    , testCase "3" (bobPublic    @=? Ed448.toPublic bobPrivate)
     ]
 
 tests = testGroup "Ed448"