Implement forgotten loadUserByEmailAddress (thanks ultrason)

This commit is contained in:
fr33domlover 2018-05-15 23:54:12 +00:00
parent 54fded2f0c
commit 47b0cdfc2f

View file

@ -445,7 +445,8 @@ morphAPDB = AccountPersistDB' . runAccountPersistDB
instance AccountDB AccountPersistDB' where
type UserAccount AccountPersistDB' = Entity Person
loadUser = morphAPDB . loadUser
loadUser = morphAPDB . loadUser
loadUserByEmailAddress = morphAPDB . loadUserByEmailAddress
addNewUser name email key pwd = AccountPersistDB' $ runDB $ do
now <- liftIO getCurrentTime
@ -465,10 +466,10 @@ instance AccountDB AccountPersistDB' where
pid <- insert person
return $ Right $ Entity pid person
verifyAccount = morphAPDB . verifyAccount
setVerifyKey = (morphAPDB .) . setVerifyKey
setNewPasswordKey = (morphAPDB .) . setNewPasswordKey
setNewPassword = (morphAPDB .) . setNewPassword
verifyAccount = morphAPDB . verifyAccount
setVerifyKey = (morphAPDB .) . setVerifyKey
setNewPasswordKey = (morphAPDB .) . setNewPasswordKey
setNewPassword = (morphAPDB .) . setNewPassword
instance AccountSendEmail App where
sendVerifyEmail uname email url = do