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:
Olivier Chéron 2018-10-26 20:51:01 +02:00
parent 8c77f0c1ea
commit eccbc11824
5 changed files with 3 additions and 17 deletions

View File

@ -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.

View File

@ -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)

View File

@ -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

View File

@ -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

View File

@ -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