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