Remove Crypto.Internal.Proxy
Data.Proxy can be used instead now that GHC >= 8.0. In Data.Proxy the Proxy type is poly-kinded.
This commit is contained in:
parent
8c77f0c1ea
commit
eccbc11824
@ -31,7 +31,6 @@ import qualified Crypto.ECC.Simple.Types as Simple
|
|||||||
import qualified Crypto.ECC.Simple.Prim as Simple
|
import qualified Crypto.ECC.Simple.Prim as Simple
|
||||||
import Crypto.Random
|
import Crypto.Random
|
||||||
import Crypto.Error
|
import Crypto.Error
|
||||||
import Crypto.Internal.Proxy
|
|
||||||
import Crypto.Internal.Imports
|
import Crypto.Internal.Imports
|
||||||
import Crypto.Internal.ByteArray (ByteArray, ByteArrayAccess, ScrubbedBytes)
|
import Crypto.Internal.ByteArray (ByteArray, ByteArrayAccess, ScrubbedBytes)
|
||||||
import qualified Crypto.Internal.ByteArray as B
|
import qualified Crypto.Internal.ByteArray as B
|
||||||
@ -41,6 +40,7 @@ import qualified Crypto.PubKey.Curve448 as X448
|
|||||||
import Data.ByteArray (convert)
|
import Data.ByteArray (convert)
|
||||||
import Data.Data (Data())
|
import Data.Data (Data())
|
||||||
import Data.Kind (Type)
|
import Data.Kind (Type)
|
||||||
|
import Data.Proxy
|
||||||
|
|
||||||
-- | An elliptic curve key pair composed of the private part (a scalar), and
|
-- | An elliptic curve key pair composed of the private part (a scalar), and
|
||||||
-- the associated point.
|
-- the associated point.
|
||||||
|
|||||||
@ -17,7 +17,7 @@ module Crypto.ECC.Simple.Prim
|
|||||||
) where
|
) where
|
||||||
|
|
||||||
import Data.Maybe
|
import Data.Maybe
|
||||||
import Crypto.Internal.Proxy
|
import Data.Proxy
|
||||||
import Crypto.Number.ModArithmetic
|
import Crypto.Number.ModArithmetic
|
||||||
import Crypto.Number.F2m
|
import Crypto.Number.F2m
|
||||||
import Crypto.Number.Generate (generateBetween)
|
import Crypto.Number.Generate (generateBetween)
|
||||||
|
|||||||
@ -1,13 +0,0 @@
|
|||||||
-- |
|
|
||||||
-- Module : Crypto.Internal.Proxy
|
|
||||||
-- License : BSD-style
|
|
||||||
-- Maintainer : Vincent Hanquez <vincent@snarc.org>
|
|
||||||
-- Stability : experimental
|
|
||||||
-- Portability : Good
|
|
||||||
--
|
|
||||||
module Crypto.Internal.Proxy
|
|
||||||
( Proxy(..)
|
|
||||||
) where
|
|
||||||
|
|
||||||
-- | A type witness for 'a' as phantom type
|
|
||||||
data Proxy a = Proxy
|
|
||||||
@ -14,8 +14,8 @@ module Crypto.Random.Entropy.Backend
|
|||||||
) where
|
) where
|
||||||
|
|
||||||
import Foreign.Ptr
|
import Foreign.Ptr
|
||||||
|
import Data.Proxy
|
||||||
import Data.Word (Word8)
|
import Data.Word (Word8)
|
||||||
import Crypto.Internal.Proxy
|
|
||||||
import Crypto.Random.Entropy.Source
|
import Crypto.Random.Entropy.Source
|
||||||
#ifdef SUPPORT_RDRAND
|
#ifdef SUPPORT_RDRAND
|
||||||
import Crypto.Random.Entropy.RDRand
|
import Crypto.Random.Entropy.RDRand
|
||||||
|
|||||||
@ -220,7 +220,6 @@ Library
|
|||||||
Crypto.PubKey.ElGamal
|
Crypto.PubKey.ElGamal
|
||||||
Crypto.ECC.Simple.Types
|
Crypto.ECC.Simple.Types
|
||||||
Crypto.ECC.Simple.Prim
|
Crypto.ECC.Simple.Prim
|
||||||
Crypto.Internal.Proxy
|
|
||||||
Crypto.Internal.ByteArray
|
Crypto.Internal.ByteArray
|
||||||
Crypto.Internal.Compat
|
Crypto.Internal.Compat
|
||||||
Crypto.Internal.CompatPrim
|
Crypto.Internal.CompatPrim
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user