yesod-auth-account 1.4.2 → 1.4.3
raw patch · 1 files changed
+7/−7 lines, 1 filesdep ~persistentdep ~yesoddep ~yesod-authPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: persistent, yesod, yesod-auth, yesod-core, yesod-form
API changes (from Hackage documentation)
+ Yesod.Auth.Account: type family UserAccount m;
+ Yesod.Auth.Account: }
- Yesod.Auth.Account: class AccountDB m where type family UserAccount m
+ Yesod.Auth.Account: class AccountDB m where type UserAccount m where {
- Yesod.Auth.Account: class AccountSendEmail master where sendVerifyEmail uname email url = ((monadLoggerLog (Loc "Yesod/Auth/Account.hs" "yesod_Akv86kYOHbYDsGN1ZMKFgU" "Yesod.Auth.Account" (744, 11) (744, 18)) (pack "") LevelInfo) . (id :: Text -> Text)) $ concat ["Verification email for ", uname, " (", email, "): ", url] sendNewPasswordEmail uname email url = ((monadLoggerLog (Loc "Yesod/Auth/Account.hs" "yesod_Akv86kYOHbYDsGN1ZMKFgU" "Yesod.Auth.Account" (755, 11) (755, 18)) (pack "") LevelInfo) . (id :: Text -> Text)) $ concat ["Reset password email for ", uname, " (", email, "): ", url]
+ Yesod.Auth.Account: class AccountSendEmail master where sendVerifyEmail uname email url = (((monadLoggerLog (Loc "Yesod/Auth/Account.hs" "yesod-auth-account-1.4.3-75xSAQXPT9LH4ajfAe0KDQ" "Yesod.Auth.Account" (744, 11) (744, 18)) (pack "") LevelInfo) . (id :: Text -> Text))) $ concat ["Verification email for ", uname, " (", email, "): ", url] sendNewPasswordEmail uname email url = (((monadLoggerLog (Loc "Yesod/Auth/Account.hs" "yesod-auth-account-1.4.3-75xSAQXPT9LH4ajfAe0KDQ" "Yesod.Auth.Account" (755, 11) (755, 18)) (pack "") LevelInfo) . (id :: Text -> Text))) $ concat ["Reset password email for ", uname, " (", email, "): ", url]
- Yesod.Auth.Account: class (YesodAuth master, AccountSendEmail master, AccountDB db, UserCredentials (UserAccount db), RenderMessage master FormMessage) => YesodAuthAccount db master | master -> db where checkValidUsername u | all isAlphaNum u = return $ Right u checkValidUsername _ = do { mr <- getMessageRender; return $ Left $ mr MsgInvalidUsername } unregisteredLogin u = do { tm <- getRouteToParent; lift $ defaultLayout $ do { setTitleI MsgEmailUnverified; (do { (asWidgetT . toWidget) ((preEscapedText . pack) "<p>"); ((liftM (toHtml .) getMessageRender) >>= (\ urender_agQ2 -> (asWidgetT . toWidget) (urender_agQ2 MsgEmailUnverified))); (asWidgetT . toWidget) ((preEscapedText . pack) "</p>\n"); (asWidgetT . toWidget) (resendVerifyEmailWidget (username u) tm) }) } } getNewAccountR = do { tm <- getRouteToParent; lift $ defaultLayout $ do { setTitleI RegisterLong; newAccountWidget tm } } postNewAccountR = do { tm <- getRouteToParent; mr <- lift getMessageRender; ((result, _), _) <- lift $ runFormPost $ renderDivs newAccountForm; mdata <- case result of { FormMissing -> invalidArgs ["Form is missing"] FormFailure msg -> return $ Left msg FormSuccess d -> return $ if newAccountPassword1 d == newAccountPassword2 d then Right d else Left [mr PassMismatch] }; case mdata of { Left errs -> do { setMessage $ toHtml $ concat errs; redirect newAccountR } Right d -> do { void $ lift $ createNewAccount d tm; redirect LoginR } } } allowPasswordReset _ = True getResetPasswordR = do { tm <- getRouteToParent; lift $ defaultLayout $ do { setTitleI PasswordResetTitle; resetPasswordWidget tm } } setPasswordHandler u = do { tm <- getRouteToParent; lift $ defaultLayout $ do { setTitleI SetPassTitle; newPasswordWidget u tm } } renderAccountMessage _ _ = defaultAccountMsg
+ Yesod.Auth.Account: class (YesodAuth master, AccountSendEmail master, AccountDB db, UserCredentials (UserAccount db), RenderMessage master FormMessage) => YesodAuthAccount db master | master -> db where checkValidUsername u | all isAlphaNum u = return $ Right u checkValidUsername _ = do { mr <- getMessageRender; return $ Left $ mr MsgInvalidUsername } unregisteredLogin u = do { tm <- getRouteToParent; lift $ defaultLayout $ do { setTitleI MsgEmailUnverified; (do { (asWidgetT . toWidget) ((preEscapedText . pack) "<p>"); ((fmap (toHtml .) getMessageRender) >>= (\ urender_ajid -> (asWidgetT . toWidget) (urender_ajid MsgEmailUnverified))); (asWidgetT . toWidget) ((preEscapedText . pack) "</p>\n"); (asWidgetT . toWidget) (resendVerifyEmailWidget (username u) tm) }) } } getNewAccountR = do { tm <- getRouteToParent; lift $ defaultLayout $ do { setTitleI RegisterLong; newAccountWidget tm } } postNewAccountR = do { tm <- getRouteToParent; mr <- lift getMessageRender; ((result, _), _) <- lift $ runFormPost $ renderDivs newAccountForm; mdata <- case result of { FormMissing -> invalidArgs ["Form is missing"] FormFailure msg -> return $ Left msg FormSuccess d -> return $ if newAccountPassword1 d == newAccountPassword2 d then Right d else Left [mr PassMismatch] }; case mdata of { Left errs -> do { setMessage $ toHtml $ concat errs; redirect newAccountR } Right d -> do { void $ lift $ createNewAccount d tm; redirect LoginR } } } allowPasswordReset _ = True getResetPasswordR = do { tm <- getRouteToParent; lift $ defaultLayout $ do { setTitleI PasswordResetTitle; resetPasswordWidget tm } } setPasswordHandler u = do { tm <- getRouteToParent; lift $ defaultLayout $ do { setTitleI SetPassTitle; newPasswordWidget u tm } } renderAccountMessage _ _ = defaultAccountMsg
Files
- yesod-auth-account.cabal +7/−7
yesod-auth-account.cabal view
@@ -1,5 +1,5 @@ name: yesod-auth-account-version: 1.4.2+version: 1.4.3 cabal-version: >= 1.8 build-type: Simple synopsis: An account authentication plugin for Yesod@@ -38,11 +38,11 @@ , mtl >= 2.1 , nonce >= 1.0 , text >= 0.11- , persistent >= 1.3 && < 2.6+ , persistent >= 1.3 , pwstore-fast >= 2.0- , yesod-auth >= 1.2 && < 1.5- , yesod-core >= 1.2 && < 1.5- , yesod-form >= 1.3 && < 1.5+ , yesod-auth >= 1.2+ , yesod-core >= 1.2+ , yesod-form >= 1.3 , yesod-persistent >= 1.2 test-suite test@@ -60,7 +60,7 @@ , resourcet , text , xml-conduit- , yesod >= 1.2 && < 1.5+ , yesod >= 1.2 , yesod-test >= 1.2.1.5- , yesod-auth >= 1.2 && < 1.5+ , yesod-auth >= 1.2 , yesod-auth-account