remove Typeable

This commit is contained in:
Vincent Hanquez 2017-02-24 14:03:33 +00:00
parent 253bf0cb8b
commit c4936ce6d8

View File

@ -30,7 +30,6 @@ import qualified Crypto.Internal.ByteArray as B
import Crypto.Error import Crypto.Error
import Control.Monad (when) import Control.Monad (when)
import Data.Word import Data.Word
import Data.Typeable
import Foreign.C import Foreign.C
import Foreign.Ptr import Foreign.Ptr
@ -48,11 +47,11 @@ data Variant =
-- of data-depending and data-independent memory accesses, which gives -- of data-depending and data-independent memory accesses, which gives
-- some of Argon2i's resistance to side-channel cache timing attacks -- some of Argon2i's resistance to side-channel cache timing attacks
-- and much of Argon2d's resistance to GPU cracking attacks -- and much of Argon2d's resistance to GPU cracking attacks
deriving (Eq,Ord,Read,Show,Enum,Bounded,Typeable) deriving (Eq,Ord,Read,Show,Enum,Bounded)
-- | Which version of Argon2 to use -- | Which version of Argon2 to use
data Version = Version10 | Version13 data Version = Version10 | Version13
deriving (Eq,Ord,Read,Show,Enum,Bounded,Typeable) deriving (Eq,Ord,Read,Show,Enum,Bounded)
-- | The time cost, which defines the amount of computation realized and therefore the execution time, given in number of iterations. -- | The time cost, which defines the amount of computation realized and therefore the execution time, given in number of iterations.
-- --
@ -78,7 +77,7 @@ data Options = Options
, variant :: !Variant -- ^ Which variant of Argon2 to use. , variant :: !Variant -- ^ Which variant of Argon2 to use.
, version :: !Version -- ^ Which version of Argon2 to use. , version :: !Version -- ^ Which version of Argon2 to use.
} }
deriving (Eq,Ord,Read,Show,Typeable) deriving (Eq,Ord,Read,Show)
saltMinLength :: Int saltMinLength :: Int
saltMinLength = 8 saltMinLength = 8