From a5fb2ee23a47a6b967b90bf1add70ff3dc1ec30a Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Thu, 1 Dec 2016 12:50:01 +0000
Subject: [PATCH] don't export function that replace existing functionality and
 by-pass errors handling

---
 Crypto/PubKey/Curve25519.hs | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/Crypto/PubKey/Curve25519.hs b/Crypto/PubKey/Curve25519.hs
index 9fef828..59cf36b 100644
--- a/Crypto/PubKey/Curve25519.hs
+++ b/Crypto/PubKey/Curve25519.hs
@@ -18,8 +18,6 @@ module Crypto.PubKey.Curve25519
     , dhSecret
     , publicKey
     , secretKey
-    , toPublicKey
-    , fromPublicKey
     -- * methods
     , dh
     , toPublic
@@ -129,13 +127,3 @@ generateSecretKey = return $ unsafeDoIO $ do
         e31 :: Word8 <- peekByteOff inp 31
         pokeByteOff inp 31 ((e31 .&. 0x7f) .|. 0x40)
     return $ SecretKey sb
-
--- | Create a public key.
-toPublicKey :: ByteArrayAccess bs => bs -> PublicKey
-toPublicKey bs = pub
-  where
-    CryptoPassed pub = publicKey bs
-
--- | Convert a public key.
-fromPublicKey :: ByteArray bs => PublicKey -> bs
-fromPublicKey (PublicKey b) = B.convert b