yesodを使ってローカルのPostgreSQLのテーブルに保存されたユーザー情報で認証をするようにしたいのですが、うまく行かないので教えて頂きたいです。
使用している環境は以下のような構成です。
yesod-bin version: 1.6.0.3
yesod-auth-hashdb-1.7.1.1
PostgreSQL(11.1)
Yesod.Auth.HashDBのドキュメントを参考にして作業しています。
https://www.stackage.org/haddock/nightly-2019-06-17/yesod-auth-hashdb-1.7.1.1/Yesod-Auth-HashDB.html
[config/models]
--認証用のテーブルとしてclient_authをmigrationで作成
ClientAuth
clientId ClientId
systemid Int
username Text
password Text
UniqueClientAuth username
deriving Show
HashDBのドキュメントのサンプルを元に以下のコマンドで管理用のパスワードを生成し、psqlで手入力で認証情報をテーブルにinsertしました。
> makePassword "admin" 17
"sha256|17|gQ3ny1p2WBkGrxrz5krLXg==|bKJ2rPrKczl3eFjQLRwsZi3OpiVepEH0511ocjcAO98="
データベースの現在の状態です。
select * from client_auth;
id | client_id | systemid | username | password
----+-----------+----------+----------+-----------------------------------------------------------------------------------
1 | 1 | 1 | admin | "sha256|17|gQ3ny1p2WBkGrxrz5krLXg==|bKJ2rPrKczl3eFjQLRwsZi3OpiVepEH0511ocjcAO98="
(1 row)
username:admin password:admin で認証したいです。
パスワードの正しさをチェックするためにYesod.Auth.Util.PasswordStoreのページを参考にverifyPasswordでも確かめてみました。
https://www.stackage.org/haddock/nightly-2019-06-17/yesod-auth-1.6.6/Yesod-Auth-Util-PasswordStore.html
> verifyPassword "admin" "sha256|17|gQ3ny1p2WBkGrxrz5krLXg==|bKJ2rPrKczl3eFjQLRwsZi3OpiVepEH0511ocjcAO98="
True
HashDBのドキュメントを参考に以下のように書きました。
[src/Foundation.hs]
import Yesod.Auth.HashDB (authHashDB, HashDBUser(..))
instance YesodAuth App where
type AuthId App = ClientAuthId
-- Where to send a user after successful login
loginDest :: App -> Route App
loginDest _ = HomeR
-- Where to send a user after logout
logoutDest :: App -> Route App
logoutDest _ = HomeR
-- Override the above two destinations when a Referer: header is present
redirectToReferer :: App -> Bool
redirectToReferer _ = True
authPlugins _ = [authHashDB (Just . UniqueClientAuth)]
instance HashDBUser ClientAuth where
userPasswordHash = Just . clientAuthPassword
setPasswordHash hash clientauth = clientauth { clientAuthPassword = hash }
開発環境を起動
stack exec -- yesod develこの構成でブラウザを開いてデフォルトのログインフォームが表示される所までは良いのですが、admin:adminの
入力でログインしようとしても“Invalid username/password combination”のメッセージがブラウザ上に表示され、
コンソール側には以下のメッセージが表示されます。
19/Jun/2019:10:01:28 +0900 [Debug#SQL] SELECT "id","client_id","systemid","username","password" FROM "client_auth" WHERE "username"=?; [PersistText "admin"]
POST /auth/page/hashdb/login
Params: [("_token","7rrCxvYLlw"),("username","admin"),("password","admin")]
Request Body: _token=7rrCxvYLlw&username=admin&password=admin
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Status: 303 See Other 0.026735s
GET /auth/login
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Status: 200 OK 0.000806s
Paramsで表示されたフォームの入力値も正しいですし、表示されているSQLも正しいように思います。どこをチェックすれば良いでしょうか？