如何在Yesod中禁用GET Logout？

Question

是否有可能摆脱GET / auth / logout = getLogoutR？或改变其行为？类似于YesodAuth中的loginHandler

基本上，我想阻止某人发送链接给那些会注销它们的天真用户。

Answer 1

可能有用的一件事（未经测试）是在Yesod实例中为其添加定义。像这样：

instance Yesod App where

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

False是为了确保它只能在GET请求中运行。