cropty 0.3.0.1 → 0.3.0.2
raw patch · 2 files changed
+15/−2 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Cropty: instance GHC.Classes.Eq a => GHC.Classes.Eq (Cropty.Signed a)
- Cropty: instance GHC.Classes.Ord a => GHC.Classes.Ord (Cropty.Signed a)
+ Cropty: instance GHC.Classes.Eq (Cropty.Signed a)
+ Cropty: instance GHC.Classes.Ord (Cropty.Signed a)
Files
- cropty.cabal +1/−1
- src/Cropty.hs +14/−1
cropty.cabal view
@@ -1,7 +1,7 @@ cabal-version: 2.4 name: cropty-version: 0.3.0.1+version: 0.3.0.2 synopsis: Encryption and decryption description: Encryption and decryption. homepage: https://github.com/SamuelSchlesinger/cropty
src/Cropty.hs view
@@ -63,6 +63,7 @@ import qualified Crypto.PubKey.RSA.Types (Error (..)) import Crypto.Error (CryptoError (..)) import Control.Exception (Exception, throwIO)+import Data.Function (on) import qualified Crypto.Cipher.AES as AES import qualified Crypto.Cipher.Types as Cipher import qualified Crypto.Error as Error@@ -307,7 +308,19 @@ , signedEncoded :: ByteString , signature :: Signature , signedBy :: PublicKey- } deriving (Eq, Ord, Show, Read, Generic)+ } deriving (Show, Read, Generic)++instance Eq (Signed a) where+ s == s' =+ ((==) `on` signature) s s'+ && ((==) `on` signedEncoded) s s'+ && ((==) `on` signedBy) s s'++instance Ord (Signed a) where+ compare s s' =+ (compare `on` signature) s s'+ <> (compare `on` signedEncoded) s s'+ <> (compare `on` signedBy) s s' instance Binary a => Binary (Signed a) where put s = do