packages feed

jose 0.5.0.3 → 0.5.0.4

raw patch · 3 files changed

+4/−4 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Crypto.JOSE.Error: _AlgorithmMismatch :: AsError r_aC2S => Prism' r_aC2S String
+ Crypto.JOSE.Error: _AlgorithmMismatch :: AsError r_aEJk => Prism' r_aEJk String
- Crypto.JOSE.Error: _AlgorithmNotImplemented :: AsError r_aC2S => Prism' r_aC2S ()
+ Crypto.JOSE.Error: _AlgorithmNotImplemented :: AsError r_aEJk => Prism' r_aEJk ()
- Crypto.JOSE.Error: _CompactDecodeError :: AsError r_aC2S => Prism' r_aC2S String
+ Crypto.JOSE.Error: _CompactDecodeError :: AsError r_aEJk => Prism' r_aEJk String
- Crypto.JOSE.Error: _CompactEncodeError :: AsError r_aC2S => Prism' r_aC2S String
+ Crypto.JOSE.Error: _CompactEncodeError :: AsError r_aEJk => Prism' r_aEJk String
- Crypto.JOSE.Error: _CryptoError :: AsError r_aC2S => Prism' r_aC2S CryptoError
+ Crypto.JOSE.Error: _CryptoError :: AsError r_aEJk => Prism' r_aEJk CryptoError
- Crypto.JOSE.Error: _Error :: AsError r_aC2S => Prism' r_aC2S Error
+ Crypto.JOSE.Error: _Error :: AsError r_aEJk => Prism' r_aEJk Error
- Crypto.JOSE.Error: _JSONDecodeError :: AsError r_aC2S => Prism' r_aC2S String
+ Crypto.JOSE.Error: _JSONDecodeError :: AsError r_aEJk => Prism' r_aEJk String
- Crypto.JOSE.Error: _JWSCritUnprotected :: AsError r_aC2S => Prism' r_aC2S ()
+ Crypto.JOSE.Error: _JWSCritUnprotected :: AsError r_aEJk => Prism' r_aEJk ()
- Crypto.JOSE.Error: _JWSInvalidSignature :: AsError r_aC2S => Prism' r_aC2S ()
+ Crypto.JOSE.Error: _JWSInvalidSignature :: AsError r_aEJk => Prism' r_aEJk ()
- Crypto.JOSE.Error: _JWSNoSignatures :: AsError r_aC2S => Prism' r_aC2S ()
+ Crypto.JOSE.Error: _JWSNoSignatures :: AsError r_aEJk => Prism' r_aEJk ()
- Crypto.JOSE.Error: _JWSNoValidSignatures :: AsError r_aC2S => Prism' r_aC2S ()
+ Crypto.JOSE.Error: _JWSNoValidSignatures :: AsError r_aEJk => Prism' r_aEJk ()
- Crypto.JOSE.Error: _KeyMismatch :: AsError r_aC2S => Prism' r_aC2S String
+ Crypto.JOSE.Error: _KeyMismatch :: AsError r_aEJk => Prism' r_aEJk String
- Crypto.JOSE.Error: _KeySizeTooSmall :: AsError r_aC2S => Prism' r_aC2S ()
+ Crypto.JOSE.Error: _KeySizeTooSmall :: AsError r_aEJk => Prism' r_aEJk ()
- Crypto.JOSE.Error: _OtherPrimesNotSupported :: AsError r_aC2S => Prism' r_aC2S ()
+ Crypto.JOSE.Error: _OtherPrimesNotSupported :: AsError r_aEJk => Prism' r_aEJk ()
- Crypto.JOSE.Error: _RSAError :: AsError r_aC2S => Prism' r_aC2S Error
+ Crypto.JOSE.Error: _RSAError :: AsError r_aEJk => Prism' r_aEJk Error
- Crypto.JOSE.Error: class AsError r_aC2S where _AlgorithmNotImplemented = (.) _Error _AlgorithmNotImplemented _AlgorithmMismatch = (.) _Error _AlgorithmMismatch _KeyMismatch = (.) _Error _KeyMismatch _KeySizeTooSmall = (.) _Error _KeySizeTooSmall _OtherPrimesNotSupported = (.) _Error _OtherPrimesNotSupported _RSAError = (.) _Error _RSAError _CryptoError = (.) _Error _CryptoError _CompactEncodeError = (.) _Error _CompactEncodeError _CompactDecodeError = (.) _Error _CompactDecodeError _JSONDecodeError = (.) _Error _JSONDecodeError _JWSCritUnprotected = (.) _Error _JWSCritUnprotected _JWSNoValidSignatures = (.) _Error _JWSNoValidSignatures _JWSInvalidSignature = (.) _Error _JWSInvalidSignature _JWSNoSignatures = (.) _Error _JWSNoSignatures
+ Crypto.JOSE.Error: class AsError r_aEJk where _AlgorithmNotImplemented = (.) _Error _AlgorithmNotImplemented _AlgorithmMismatch = (.) _Error _AlgorithmMismatch _KeyMismatch = (.) _Error _KeyMismatch _KeySizeTooSmall = (.) _Error _KeySizeTooSmall _OtherPrimesNotSupported = (.) _Error _OtherPrimesNotSupported _RSAError = (.) _Error _RSAError _CryptoError = (.) _Error _CryptoError _CompactEncodeError = (.) _Error _CompactEncodeError _CompactDecodeError = (.) _Error _CompactDecodeError _JSONDecodeError = (.) _Error _JSONDecodeError _JWSCritUnprotected = (.) _Error _JWSCritUnprotected _JWSNoValidSignatures = (.) _Error _JWSNoValidSignatures _JWSInvalidSignature = (.) _Error _JWSInvalidSignature _JWSNoSignatures = (.) _Error _JWSNoSignatures
- Crypto.JOSE.JWS: class HasJWSHeader c_a1hVP where jwsHeaderAlg = (.) jWSHeader jwsHeaderAlg jwsHeaderCrit = (.) jWSHeader jwsHeaderCrit jwsHeaderCty = (.) jWSHeader jwsHeaderCty jwsHeaderJku = (.) jWSHeader jwsHeaderJku jwsHeaderJwk = (.) jWSHeader jwsHeaderJwk jwsHeaderKid = (.) jWSHeader jwsHeaderKid jwsHeaderTyp = (.) jWSHeader jwsHeaderTyp jwsHeaderX5c = (.) jWSHeader jwsHeaderX5c jwsHeaderX5t = (.) jWSHeader jwsHeaderX5t jwsHeaderX5tS256 = (.) jWSHeader jwsHeaderX5tS256 jwsHeaderX5u = (.) jWSHeader jwsHeaderX5u
+ Crypto.JOSE.JWS: class HasJWSHeader c_a1juu where jwsHeaderAlg = (.) jWSHeader jwsHeaderAlg jwsHeaderCrit = (.) jWSHeader jwsHeaderCrit jwsHeaderCty = (.) jWSHeader jwsHeaderCty jwsHeaderJku = (.) jWSHeader jwsHeaderJku jwsHeaderJwk = (.) jWSHeader jwsHeaderJwk jwsHeaderKid = (.) jWSHeader jwsHeaderKid jwsHeaderTyp = (.) jWSHeader jwsHeaderTyp jwsHeaderX5c = (.) jWSHeader jwsHeaderX5c jwsHeaderX5t = (.) jWSHeader jwsHeaderX5t jwsHeaderX5tS256 = (.) jWSHeader jwsHeaderX5tS256 jwsHeaderX5u = (.) jWSHeader jwsHeaderX5u
- Crypto.JOSE.JWS: class HasValidationSettings c_a1iSd where validationSettingsAlgorithms = (.) validationSettings validationSettingsAlgorithms validationSettingsValidationPolicy = (.) validationSettings validationSettingsValidationPolicy
+ Crypto.JOSE.JWS: class HasValidationSettings c_a1kqo where validationSettingsAlgorithms = (.) validationSettings validationSettingsAlgorithms validationSettingsValidationPolicy = (.) validationSettings validationSettingsValidationPolicy
- Crypto.JOSE.JWS: header :: forall a_a1hYs a_a1iaQ. Lens (Signature a_a1hYs) (Signature a_a1iaQ) a_a1hYs a_a1iaQ
+ Crypto.JOSE.JWS: header :: forall a_a1jx7 a_a1jHW. Lens (Signature a_a1jx7) (Signature a_a1jHW) a_a1jx7 a_a1jHW
- Crypto.JOSE.JWS: jWSHeader :: HasJWSHeader c_a1hVP => Lens' c_a1hVP JWSHeader
+ Crypto.JOSE.JWS: jWSHeader :: HasJWSHeader c_a1juu => Lens' c_a1juu JWSHeader
- Crypto.JOSE.JWS: jwsHeaderAlg :: HasJWSHeader c_a1hVP => Lens' c_a1hVP (HeaderParam Alg)
+ Crypto.JOSE.JWS: jwsHeaderAlg :: HasJWSHeader c_a1juu => Lens' c_a1juu (HeaderParam Alg)
- Crypto.JOSE.JWS: jwsHeaderCrit :: HasJWSHeader c_a1hVP => Lens' c_a1hVP (Maybe (NonEmpty Text))
+ Crypto.JOSE.JWS: jwsHeaderCrit :: HasJWSHeader c_a1juu => Lens' c_a1juu (Maybe (NonEmpty Text))
- Crypto.JOSE.JWS: jwsHeaderCty :: HasJWSHeader c_a1hVP => Lens' c_a1hVP (Maybe (HeaderParam String))
+ Crypto.JOSE.JWS: jwsHeaderCty :: HasJWSHeader c_a1juu => Lens' c_a1juu (Maybe (HeaderParam String))
- Crypto.JOSE.JWS: jwsHeaderJku :: HasJWSHeader c_a1hVP => Lens' c_a1hVP (Maybe (HeaderParam URI))
+ Crypto.JOSE.JWS: jwsHeaderJku :: HasJWSHeader c_a1juu => Lens' c_a1juu (Maybe (HeaderParam URI))
- Crypto.JOSE.JWS: jwsHeaderJwk :: HasJWSHeader c_a1hVP => Lens' c_a1hVP (Maybe (HeaderParam JWK))
+ Crypto.JOSE.JWS: jwsHeaderJwk :: HasJWSHeader c_a1juu => Lens' c_a1juu (Maybe (HeaderParam JWK))
- Crypto.JOSE.JWS: jwsHeaderKid :: HasJWSHeader c_a1hVP => Lens' c_a1hVP (Maybe (HeaderParam String))
+ Crypto.JOSE.JWS: jwsHeaderKid :: HasJWSHeader c_a1juu => Lens' c_a1juu (Maybe (HeaderParam String))
- Crypto.JOSE.JWS: jwsHeaderTyp :: HasJWSHeader c_a1hVP => Lens' c_a1hVP (Maybe (HeaderParam String))
+ Crypto.JOSE.JWS: jwsHeaderTyp :: HasJWSHeader c_a1juu => Lens' c_a1juu (Maybe (HeaderParam String))
- Crypto.JOSE.JWS: jwsHeaderX5c :: HasJWSHeader c_a1hVP => Lens' c_a1hVP (Maybe (HeaderParam (NonEmpty Base64X509)))
+ Crypto.JOSE.JWS: jwsHeaderX5c :: HasJWSHeader c_a1juu => Lens' c_a1juu (Maybe (HeaderParam (NonEmpty Base64X509)))
- Crypto.JOSE.JWS: jwsHeaderX5t :: HasJWSHeader c_a1hVP => Lens' c_a1hVP (Maybe (HeaderParam Base64SHA1))
+ Crypto.JOSE.JWS: jwsHeaderX5t :: HasJWSHeader c_a1juu => Lens' c_a1juu (Maybe (HeaderParam Base64SHA1))
- Crypto.JOSE.JWS: jwsHeaderX5tS256 :: HasJWSHeader c_a1hVP => Lens' c_a1hVP (Maybe (HeaderParam Base64SHA256))
+ Crypto.JOSE.JWS: jwsHeaderX5tS256 :: HasJWSHeader c_a1juu => Lens' c_a1juu (Maybe (HeaderParam Base64SHA256))
- Crypto.JOSE.JWS: jwsHeaderX5u :: HasJWSHeader c_a1hVP => Lens' c_a1hVP (Maybe (HeaderParam URI))
+ Crypto.JOSE.JWS: jwsHeaderX5u :: HasJWSHeader c_a1juu => Lens' c_a1juu (Maybe (HeaderParam URI))
- Crypto.JOSE.JWS: validationSettings :: HasValidationSettings c_a1iSd => Lens' c_a1iSd ValidationSettings
+ Crypto.JOSE.JWS: validationSettings :: HasValidationSettings c_a1kqo => Lens' c_a1kqo ValidationSettings
- Crypto.JOSE.JWS: validationSettingsAlgorithms :: HasValidationSettings c_a1iSd => Lens' c_a1iSd (Set Alg)
+ Crypto.JOSE.JWS: validationSettingsAlgorithms :: HasValidationSettings c_a1kqo => Lens' c_a1kqo (Set Alg)
- Crypto.JOSE.JWS: validationSettingsValidationPolicy :: HasValidationSettings c_a1iSd => Lens' c_a1iSd ValidationPolicy
+ Crypto.JOSE.JWS: validationSettingsValidationPolicy :: HasValidationSettings c_a1kqo => Lens' c_a1kqo ValidationPolicy
- Crypto.JWT: _JWSError :: AsJWTError r_a1LZY => Prism' r_a1LZY Error
+ Crypto.JWT: _JWSError :: AsJWTError r_a1NwY => Prism' r_a1NwY Error
- Crypto.JWT: _JWTError :: AsJWTError r_a1LZY => Prism' r_a1LZY JWTError
+ Crypto.JWT: _JWTError :: AsJWTError r_a1NwY => Prism' r_a1NwY JWTError
- Crypto.JWT: _JWTExpired :: AsJWTError r_a1LZY => Prism' r_a1LZY ()
+ Crypto.JWT: _JWTExpired :: AsJWTError r_a1NwY => Prism' r_a1NwY ()
- Crypto.JWT: _JWTIssuedAtFuture :: AsJWTError r_a1LZY => Prism' r_a1LZY ()
+ Crypto.JWT: _JWTIssuedAtFuture :: AsJWTError r_a1NwY => Prism' r_a1NwY ()
- Crypto.JWT: _JWTNotInAudience :: AsJWTError r_a1LZY => Prism' r_a1LZY ()
+ Crypto.JWT: _JWTNotInAudience :: AsJWTError r_a1NwY => Prism' r_a1NwY ()
- Crypto.JWT: _JWTNotInIssuer :: AsJWTError r_a1LZY => Prism' r_a1LZY ()
+ Crypto.JWT: _JWTNotInIssuer :: AsJWTError r_a1NwY => Prism' r_a1NwY ()
- Crypto.JWT: _JWTNotYetValid :: AsJWTError r_a1LZY => Prism' r_a1LZY ()
+ Crypto.JWT: _JWTNotYetValid :: AsJWTError r_a1NwY => Prism' r_a1NwY ()
- Crypto.JWT: class AsJWTError r_a1LZY where _JWSError = (.) _JWTError _JWSError _JWTExpired = (.) _JWTError _JWTExpired _JWTNotYetValid = (.) _JWTError _JWTNotYetValid _JWTNotInIssuer = (.) _JWTError _JWTNotInIssuer _JWTNotInAudience = (.) _JWTError _JWTNotInAudience _JWTIssuedAtFuture = (.) _JWTError _JWTIssuedAtFuture
+ Crypto.JWT: class AsJWTError r_a1NwY where _JWSError = (.) _JWTError _JWSError _JWTExpired = (.) _JWTError _JWTExpired _JWTNotYetValid = (.) _JWTError _JWTNotYetValid _JWTNotInIssuer = (.) _JWTError _JWTNotInIssuer _JWTNotInAudience = (.) _JWTError _JWTNotInAudience _JWTIssuedAtFuture = (.) _JWTError _JWTIssuedAtFuture
- Crypto.JWT: class HasJWTValidationSettings c_a1MCA where jwtValidationSettingsAllowedSkew = (.) jWTValidationSettings jwtValidationSettingsAllowedSkew jwtValidationSettingsAudiencePredicate = (.) jWTValidationSettings jwtValidationSettingsAudiencePredicate jwtValidationSettingsCheckIssuedAt = (.) jWTValidationSettings jwtValidationSettingsCheckIssuedAt jwtValidationSettingsIssuerPredicate = (.) jWTValidationSettings jwtValidationSettingsIssuerPredicate jwtValidationSettingsValidationSettings = (.) jWTValidationSettings jwtValidationSettingsValidationSettings
+ Crypto.JWT: class HasJWTValidationSettings c_a1O9A where jwtValidationSettingsAllowedSkew = (.) jWTValidationSettings jwtValidationSettingsAllowedSkew jwtValidationSettingsAudiencePredicate = (.) jWTValidationSettings jwtValidationSettingsAudiencePredicate jwtValidationSettingsCheckIssuedAt = (.) jWTValidationSettings jwtValidationSettingsCheckIssuedAt jwtValidationSettingsIssuerPredicate = (.) jWTValidationSettings jwtValidationSettingsIssuerPredicate jwtValidationSettingsValidationSettings = (.) jWTValidationSettings jwtValidationSettingsValidationSettings
- Crypto.JWT: jWTValidationSettings :: HasJWTValidationSettings c_a1MCA => Lens' c_a1MCA JWTValidationSettings
+ Crypto.JWT: jWTValidationSettings :: HasJWTValidationSettings c_a1O9A => Lens' c_a1O9A JWTValidationSettings
- Crypto.JWT: jwtValidationSettingsAllowedSkew :: HasJWTValidationSettings c_a1MCA => Lens' c_a1MCA NominalDiffTime
+ Crypto.JWT: jwtValidationSettingsAllowedSkew :: HasJWTValidationSettings c_a1O9A => Lens' c_a1O9A NominalDiffTime
- Crypto.JWT: jwtValidationSettingsAudiencePredicate :: HasJWTValidationSettings c_a1MCA => Lens' c_a1MCA (StringOrURI -> Bool)
+ Crypto.JWT: jwtValidationSettingsAudiencePredicate :: HasJWTValidationSettings c_a1O9A => Lens' c_a1O9A (StringOrURI -> Bool)
- Crypto.JWT: jwtValidationSettingsCheckIssuedAt :: HasJWTValidationSettings c_a1MCA => Lens' c_a1MCA Bool
+ Crypto.JWT: jwtValidationSettingsCheckIssuedAt :: HasJWTValidationSettings c_a1O9A => Lens' c_a1O9A Bool
- Crypto.JWT: jwtValidationSettingsIssuerPredicate :: HasJWTValidationSettings c_a1MCA => Lens' c_a1MCA (StringOrURI -> Bool)
+ Crypto.JWT: jwtValidationSettingsIssuerPredicate :: HasJWTValidationSettings c_a1O9A => Lens' c_a1O9A (StringOrURI -> Bool)
- Crypto.JWT: jwtValidationSettingsValidationSettings :: HasJWTValidationSettings c_a1MCA => Lens' c_a1MCA ValidationSettings
+ Crypto.JWT: jwtValidationSettingsValidationSettings :: HasJWTValidationSettings c_a1O9A => Lens' c_a1O9A ValidationSettings

Files

jose.cabal view
@@ -1,5 +1,5 @@ name:                jose-version:             0.5.0.3+version:             0.5.0.4 synopsis:   Javascript Object Signing and Encryption and JSON Web Token library description:
src/Crypto/JOSE/JWA/JWK.hs view
@@ -388,7 +388,7 @@   (Types.Base64Integer e)   (Just (RSAPrivateKeyParameters (Types.Base64Integer d) opt)))   | isJust (opt >>= rsaOth) = Left OtherPrimesNotSupported-  | size < 2048 `div` 8 = Left KeySizeTooSmall+  | n < 2 ^ (2040 :: Integer) = Left KeySizeTooSmall   | otherwise = Right $     RSA.PrivateKey (RSA.PublicKey size n e) d       (opt' rsaP) (opt' rsaQ) (opt' rsaDp) (opt' rsaDq) (opt' rsaQi)
src/Crypto/JOSE/JWK.hs view
@@ -197,9 +197,9 @@     P_521 -> JWA.JWS.ES512   RSAKeyMaterial k ->     let-      Types.SizedBase64Integer size _ = view rsaN k+      Types.SizedBase64Integer _ n = view rsaN k     in-      if size >= 2048 `div` 8+      if n >= 2 ^ (2040 :: Integer)       then pure JWA.JWS.PS512       else throwError (review _KeySizeTooSmall ())   OctKeyMaterial (OctKeyParameters { octK = Types.Base64Octets k })