packages feed

Crypto 4.2.1 → 4.2.2

raw patch · 3 files changed

+2/−38 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Data.Digest.SHA2: instance (Eq w) => Eq (Hash8 w)
- Data.Digest.SHA2: instance (Integral a) => Show (Hash8 a)
- Data.Digest.SHA2: instance (Ord w) => Ord (Hash8 w)
+ Data.Digest.SHA2: instance Eq w => Eq (Hash8 w)
+ Data.Digest.SHA2: instance Integral a => Show (Hash8 a)
+ Data.Digest.SHA2: instance Ord w => Ord (Hash8 w)
- Codec.Encryption.AES: class (AESKeyIndirection a) => AESKey a
+ Codec.Encryption.AES: class AESKeyIndirection a => AESKey a
- Codec.Encryption.AES: decrypt :: (AESKey a) => a -> Word128 -> Word128
+ Codec.Encryption.AES: decrypt :: AESKey a => a -> Word128 -> Word128
- Codec.Encryption.AES: encrypt :: (AESKey a) => a -> Word128 -> Word128
+ Codec.Encryption.AES: encrypt :: AESKey a => a -> Word128 -> Word128
- Codec.Encryption.Blowfish: decrypt :: (Integral a) => a -> Word64 -> Word64
+ Codec.Encryption.Blowfish: decrypt :: Integral a => a -> Word64 -> Word64
- Codec.Encryption.Blowfish: encrypt :: (Integral a) => a -> Word64 -> Word64
+ Codec.Encryption.Blowfish: encrypt :: Integral a => a -> Word64 -> Word64
- Codec.Encryption.Modes: cbc :: (Bits block) => (key -> block -> block) -> block -> key -> [block] -> [block]
+ Codec.Encryption.Modes: cbc :: Bits block => (key -> block -> block) -> block -> key -> [block] -> [block]
- Codec.Encryption.Modes: unCbc :: (Bits block) => (key -> block -> block) -> block -> key -> [block] -> [block]
+ Codec.Encryption.Modes: unCbc :: Bits block => (key -> block -> block) -> block -> key -> [block] -> [block]
- Codec.Encryption.TEA: TEAKey :: !!Word32 -> !!Word32 -> !!Word32 -> !!Word32 -> TEAKey
+ Codec.Encryption.TEA: TEAKey :: {-# UNPACK #-} !Word32 -> {-# UNPACK #-} !Word32 -> {-# UNPACK #-} !Word32 -> {-# UNPACK #-} !Word32 -> TEAKey
- Codec.Utils: fromTwosComp :: (Integral a) => [Octet] -> a
+ Codec.Utils: fromTwosComp :: Integral a => [Octet] -> a
- Codec.Utils: i2osp :: (Integral a) => Int -> a -> [Octet]
+ Codec.Utils: i2osp :: Integral a => Int -> a -> [Octet]
- Codec.Utils: toTwosComp :: (Integral a) => a -> [Octet]
+ Codec.Utils: toTwosComp :: Integral a => a -> [Octet]
- Data.Digest.SHA1: Word160 :: !!Word32 -> !!Word32 -> !!Word32 -> !!Word32 -> !!Word32 -> Word160
+ Data.Digest.SHA1: Word160 :: {-# UNPACK #-} !Word32 -> {-# UNPACK #-} !Word32 -> {-# UNPACK #-} !Word32 -> {-# UNPACK #-} !Word32 -> {-# UNPACK #-} !Word32 -> Word160
- Data.Digest.SHA2: toOctets :: (Hash h) => h -> [Word8]
+ Data.Digest.SHA2: toOctets :: Hash h => h -> [Word8]

Files

Crypto.cabal view
@@ -1,9 +1,9 @@ Name:            Crypto-Version:         4.2.1+Version:         4.2.2 License:         OtherLicense License-File:    ReadMe.tex Author:          Dominic Steinitz-Maintainer:      Creighton Hogg <wchogg@gmail.com>+Maintainer:      Caylee Hogg <caylee.hogg@gmail.com> Copyright:       Dominic Steinitz 2003 - 2007  Stability:       Alpha
QuickTest.hs view
@@ -14,18 +14,6 @@ import Data.Char import Test.QuickCheck -instance Arbitrary Word8 where-   arbitrary = -      do n <- choose ((fromIntegral (minBound::Word8))::Int, -                      (fromIntegral (maxBound::Word8))::Int)-         return (fromIntegral n)--instance Arbitrary Word64 where-   arbitrary = -      do n <- choose ((fromIntegral (minBound::Word64))::Integer, -                      (fromIntegral (maxBound::Word64))::Integer)-         return (fromIntegral n)- instance Arbitrary Word128 where    arbitrary =        do n <- choose ((fromIntegral (minBound::Word128))::Integer,
WordListTest.hs view
@@ -27,30 +27,6 @@     ("Word256",      quickCheck (\(w :: [Word256]) -> (listFromOctets . listToOctets) w == w))] -instance Arbitrary Word8 where-    arbitrary = do-        let mx,mn :: Integer-            mx = fromIntegral (maxBound :: Word8)-            mn = fromIntegral (minBound :: Word8)-        c <- choose (mx, mn)-        return $ fromIntegral c--instance Arbitrary Word32 where-    arbitrary = do-        let mx,mn :: Integer-            mx = fromIntegral (maxBound :: Word32)-            mn = fromIntegral (minBound :: Word32)-        c <- choose (mx, mn)-        return $ fromIntegral c--instance Arbitrary Word64 where-    arbitrary = do-        let mx,mn :: Integer-            mx = fromIntegral (maxBound :: Word64)-            mn = fromIntegral (minBound :: Word64)-        c <- choose (mx, mn)-        return $ fromIntegral c- instance Arbitrary Word128 where         arbitrary = do                 x <- vector (128 `div` 8) :: Gen [Word8]