Skip to content

Commit

Permalink
minor fix
Browse files Browse the repository at this point in the history
  • Loading branch information
Alex Greif authored Aug 7, 2016
1 parent 424a98f commit 7c67830
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions hashdb-auth/README.md
Original file line number Diff line number Diff line change
Expand Up @@ -19,15 +19,15 @@ changes in `Foundation.hs`:
| otherwise =return Authorized


instance YesodPersist App where
instance YesodAuth App where
...
authenticate creds = runDB $ do
x <- getBy $ UniqueUser $ credsIdent creds
case x of
Just (Entity uid _) -> return $ Authenticated uid
Nothing -> return $ ServerError "error"
...
authPlugins _ = [authHashDB (Just . UniqueUser)]
authPlugins _ = [authHashDB (Just . UniqueUser)]

instance HashDBUser User where
userPasswordHash = userPassword
Expand Down

0 comments on commit 7c67830

Please sign in to comment.