1 files changed, 13 insertions, 1 deletions

diff --git a/Data/OpenPGP/Util/Cv25519.hs b/Data/OpenPGP/Util/Cv25519.hs
index 4900b2f..d5ac641 100644
--- a/Data/OpenPGP/Util/Cv25519.hs
+++ b/Data/OpenPGP/Util/Cv25519.hs
@@ -26,7 +26,7 @@ import qualified Crypto.PubKey.Curve25519 as Cv25519
 import Crypto.Error
 import Crypto.Cipher.AES
 import Crypto.Cipher.Types
-import Data.OpenPGP.Util.DecryptSecretKey -- (withS2K, simpleUnCFB, Enciphered(..))
+import Data.OpenPGP.Util.Decrypt -- (withS2K, simpleUnCFB, Enciphered(..))
 
 import Crypto.JOSE.AESKW
 
@@ -229,3 +229,15 @@ decryptMessage ecdhkey asym encdta = do
             b1 = BL.drop (2 + fromIntegral blksize) b0
         (_,_, Message ps) <- either (const Nothing) Just $ decodeOrFail b1
         return ps
+
+importSecretCv25519 :: Cv25519.SecretKey -> [(Char,MPI)]
+importSecretCv25519 k =
+    [ ('c', MPI oid_cv25519)
+    , ('l', MPI 128)
+    , ('n', MPI pub)
+    , ('f', MPI 0x40)
+    , ('d', MPI sec)
+    ]
+ where
+    pub = getBigNum $ BA.convert $ Cv25519.toPublic k
+    sec = getBigNumLE $ BA.convert k