Skip to content
Permalink
Browse files

Merge pull request #44 from mmilata/email-auth-reset-verkey

yesod-auth-json.md: reset verkey in verifyAccount
  • Loading branch information...
psibi committed Jun 14, 2019
2 parents 0387add + b127cfa commit 664000356e3f5330ab825a62a1e3c8ba8c426cba
Showing with 1 addition and 1 deletion.
  1. +1 −1 cookbook/yesod-auth-json.md
@@ -160,7 +160,7 @@ instance YesodAuthEmail App where
case mu of
Nothing -> return Nothing
Just u -> do
update uid [UserVerified =. True]
update uid [UserVerified =. True, UserVerkey =. Nothing]
return $ Just uid
getPassword = runDB . fmap (join . fmap userPassword) . get
setPassword uid pass = runDB $ update uid [UserPassword =. Just pass]

0 comments on commit 6640003

Please sign in to comment.
You can’t perform that action at this time.