module Crypto.Curve25519.Exceptions(
PrivateKey
, PublicKey
, importPublic, exportPublic
, generatePrivate
, generatePublic
, generateKeyPair
, makeShared
)
where
import Data.ByteString(ByteString)
import Crypto.Curve25519.Pure(PublicKey, PrivateKey)
import qualified Crypto.Curve25519.Pure as Pure
import Crypto.Random
generatePrivate :: CryptoRandomGen g => g -> (PrivateKey, g)
generatePrivate :: forall g. CryptoRandomGen g => g -> (PrivateKey, g)
generatePrivate g
g = forall e a. Exception e => Either e a -> a
throwLeft (forall g. CryptoRandomGen g => g -> Either GenError (PrivateKey, g)
Pure.generatePrivate g
g)
generatePublic :: PrivateKey -> PublicKey
generatePublic :: PrivateKey -> PublicKey
generatePublic = PrivateKey -> PublicKey
Pure.generatePublic
importPublic :: ByteString -> Maybe PublicKey
importPublic :: ByteString -> Maybe PublicKey
importPublic = ByteString -> Maybe PublicKey
Pure.importPublic
exportPublic :: PublicKey -> ByteString
exportPublic :: PublicKey -> ByteString
exportPublic = PublicKey -> ByteString
Pure.exportPublic
generateKeyPair :: CryptoRandomGen g => g -> (PrivateKey, PublicKey, g)
generateKeyPair :: forall g. CryptoRandomGen g => g -> (PrivateKey, PublicKey, g)
generateKeyPair g
g = forall e a. Exception e => Either e a -> a
throwLeft (forall g.
CryptoRandomGen g =>
g -> Either GenError (PrivateKey, PublicKey, g)
Pure.generateKeyPair g
g)
makeShared :: PrivateKey -> PublicKey -> ByteString
makeShared :: PrivateKey -> PublicKey -> ByteString
makeShared = PrivateKey -> PublicKey -> ByteString
Pure.makeShared