如何在Yesod中禁用GET注销？

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要求进行操作。