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

@ -446,6 +446,7 @@ instance AccountDB AccountPersistDB' where
type UserAccount AccountPersistDB' = Entity Person
loadUser = morphAPDB . loadUser
loadUserByEmailAddress = morphAPDB . loadUserByEmailAddress
addNewUser name email key pwd = AccountPersistDB' $ runDB $ do
now <- liftIO getCurrentTime