From 7c67830181b1d233afff3a3f34b1703b8c7c89fb Mon Sep 17 00:00:00 2001 From: Alex Greif Date: Sun, 7 Aug 2016 12:05:52 +0200 Subject: [PATCH] minor fix --- hashdb-auth/README.md | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hashdb-auth/README.md b/hashdb-auth/README.md index f232f0f..02409a4 100644 --- a/hashdb-auth/README.md +++ b/hashdb-auth/README.md @@ -19,7 +19,7 @@ changes in `Foundation.hs`: | otherwise =return Authorized - instance YesodPersist App where + instance YesodAuth App where ... authenticate creds = runDB $ do x <- getBy $ UniqueUser $ credsIdent creds @@ -27,7 +27,7 @@ changes in `Foundation.hs`: Just (Entity uid _) -> return $ Authenticated uid Nothing -> return $ ServerError "error" ... - authPlugins _ = [authHashDB (Just . UniqueUser)] + authPlugins _ = [authHashDB (Just . UniqueUser)] instance HashDBUser User where userPasswordHash = userPassword