yesod-auth 1.4.13.3 → 1.4.13.4
raw patch · 3 files changed
+13/−8 lines, 3 filesdep ~persistentdep ~persistent-templatePVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: persistent, persistent-template
API changes (from Hackage documentation)
- Yesod.Auth.Email: class (YesodAuth site, PathPiece (AuthEmailId site), RenderMessage site AuthMessage) => YesodAuthEmail site where type AuthEmailId site randomKey _ = nonce128urlT defaultNonceGen needOldPassword aid' = do { mkey <- lookupSession loginLinkKey; case mkey >>= readMay . unpack of { Just (aidT, time) | Just aid <- fromPathPiece aidT, toPathPiece (aid `asTypeOf` aid') == toPathPiece aid' -> do { now <- liftIO getCurrentTime; return $ addUTCTime (60 * 30) time <= now } _ -> return True } } checkPasswordSecurity _ x | length x >= 3 = return $ Right () | otherwise = return $ Left "Password must be at least three characters" confirmationEmailSentResponse identifier = do { mr <- getMessageRender; selectRep $ do { provideJsonMessage (mr msg); provideRep $ authLayout $ do { setTitleI ConfirmationEmailSentTitle; (do { (asWidgetT . toWidget) ((preEscapedText . pack) "<p>"); ((fmap (toHtml .) getMessageRender) >>= (\ urender_aKXQ -> (asWidgetT . toWidget) (urender_aKXQ msg))); (asWidgetT . toWidget) ((preEscapedText . pack) "</p>\n") }) } } } where msg = ConfirmationEmailSent identifier normalizeEmailAddress _ = toLower registerHandler = defaultRegisterHandler forgotPasswordHandler = defaultForgotPasswordHandler setPasswordHandler = defaultSetPasswordHandler where {
+ Yesod.Auth.Email: class (YesodAuth site, PathPiece (AuthEmailId site), RenderMessage site AuthMessage) => YesodAuthEmail site where type AuthEmailId site randomKey _ = nonce128urlT defaultNonceGen needOldPassword aid' = do { mkey <- lookupSession loginLinkKey; case mkey >>= readMay . unpack of { Just (aidT, time) | Just aid <- fromPathPiece aidT, toPathPiece (aid `asTypeOf` aid') == toPathPiece aid' -> do { now <- liftIO getCurrentTime; return $ addUTCTime (60 * 30) time <= now } _ -> return True } } checkPasswordSecurity _ x | length x >= 3 = return $ Right () | otherwise = return $ Left "Password must be at least three characters" confirmationEmailSentResponse identifier = do { mr <- getMessageRender; selectRep $ do { provideJsonMessage (mr msg); provideRep $ authLayout $ do { setTitleI ConfirmationEmailSentTitle; (do { (asWidgetT . toWidget) ((preEscapedText . pack) "<p>"); ((fmap (toHtml .) getMessageRender) >>= (\ urender_aL6B -> (asWidgetT . toWidget) (urender_aL6B msg))); (asWidgetT . toWidget) ((preEscapedText . pack) "</p>\n") }) } } } where msg = ConfirmationEmailSent identifier normalizeEmailAddress _ = toLower registerHandler = defaultRegisterHandler forgotPasswordHandler = defaultForgotPasswordHandler setPasswordHandler = defaultSetPasswordHandler where {
Files
- ChangeLog.md +5/−0
- Yesod/Auth/Message.hs +5/−5
- yesod-auth.cabal +3/−3
ChangeLog.md view
@@ -1,3 +1,8 @@+## 1.4.13.4++* Improved translations+* peristent 2.6+ ## 1.4.13.3 * Doc update (and a warning)
Yesod/Auth/Message.hs view
@@ -653,9 +653,9 @@ dutchMessage LoginGoogle = "Inloggen via Google" dutchMessage LoginYahoo = "Inloggen via Yahoo" dutchMessage Email = "E-mail"-dutchMessage UserName = "Gebruikersnaam" -- FIXME by Google Translate "user name"+dutchMessage UserName = "Gebruikersnaam" dutchMessage Password = "Wachtwoord"-dutchMessage CurrentPassword = "Current password"+dutchMessage CurrentPassword = "Huidig wachtwoord" dutchMessage Register = "Registreren" dutchMessage RegisterLong = "Registreer een nieuw account" dutchMessage EnterEmail = "Voer uw e-mailadres hieronder in, er zal een bevestigings-e-mail naar u worden verzonden."@@ -690,9 +690,9 @@ dutchMessage PasswordResetPrompt = "Voer uw e-mailadres of gebruikersnaam hieronder in, er zal een e-mail naar u worden verzonden waarmee u uw wachtwoord kunt wijzigen." dutchMessage InvalidUsernamePass = "Ongeldige gebruikersnaam/wachtwoord combinatie" dutchMessage (IdentifierNotFound ident) = "Inloggegevens niet gevonden: " `mappend` ident-dutchMessage Logout = "Log Out" -- FIXME NOT TRANSLATED-dutchMessage LogoutTitle = "Log Out" -- FIXME NOT TRANSLATED-dutchMessage AuthError = "Verificatiefout" -- FIXME by Google Translate+dutchMessage Logout = "Uitloggen"+dutchMessage LogoutTitle = "Uitloggen"+dutchMessage AuthError = "Verificatiefout" croatianMessage :: AuthMessage -> Text croatianMessage NoOpenID = "Nije pronađen OpenID identifikator"
yesod-auth.cabal view
@@ -1,5 +1,5 @@ name: yesod-auth-version: 1.4.13.3+version: 1.4.13.4 license: MIT license-file: LICENSE author: Michael Snoyman, Patrick Brisbin@@ -37,8 +37,8 @@ , unordered-containers , yesod-form >= 1.4 && < 1.5 , transformers >= 0.2.2- , persistent >= 2.1 && < 2.6- , persistent-template >= 2.1 && < 2.6+ , persistent >= 2.1 && < 2.7+ , persistent-template >= 2.1 && < 2.7 , http-client , http-conduit >= 2.1 , aeson >= 0.7