forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Implement forgotten loadUserByEmailAddress (thanks ultrason)

Browse source
This commit is contained in:
fr33domlover 2018-05-15 23:54:12 +00:00
parent 54fded2f0c
commit 47b0cdfc2f
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/Vervis/Foundation.hs
View file

@ -446,6 +446,7 @@ 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