YesodでGETログアウトを無効にするには？

Question

GET/auth/logout = getLogoutRを取り除くことは可能ですか？またはその行動を変える？ YesodAuthのloginHandlerに似ています

基本的に、私は誰かがログアウトする素朴なユーザーにリンクを送信しないようにしたいと考えています。

Answer 1

Yesodインスタンスには、その定義が追加される可能性が高い（テストされていない）ことが1つあります。このような何か：

instance Yesod App where 

    isAuthorized (AuthR LogoutR) False = return $ Unauthorized "must be admin" 

FalseはそれだけGETリクエストに応じて動作することを確認することです。