1 files changed, 0 insertions, 13 deletions

diff --git a/Data/OpenPGP/Util/Cv25519.hs b/Data/OpenPGP/Util/Cv25519.hs
index abf1ba6..bc1cacb 100644
--- a/Data/OpenPGP/Util/Cv25519.hs
+++ b/Data/OpenPGP/Util/Cv25519.hs
@@ -67,19 +67,6 @@ privateCv25519Key k@SecretKeyPacket { key_algorithm = ECC, symmetric_algorithm =
         CryptoPassed cv25519sec -> Just cv25519sec
         CryptoFailed err        -> Nothing
 
-hexify = map toUpper . hexString . BS.unpack
-
-
-
-hexString :: [Word8] -> String
-hexString = foldr (pad `oo` showHex) ""
-        where
-        pad s | odd $ length s = '0':s
-              | otherwise = s
-
-        oo :: (b -> c) -> (a -> a1 -> b) -> a -> a1 -> c
-        oo = (.) . (.)
-
 cv25519Key :: [(Char,MPI)] -> Maybe Cv25519.PublicKey
 cv25519Key k = do
     MPI flag <- lookup 'f' k