在 Yesod 中发送 301 重定向

Question

使用这个 Yesod 处理程序：

myR :: Handler Html
myR = redirect HomeR

我可以根据the documentation

使用303/302状态码重定向

文档指出 redirectWith 应用于其他状态代码。使用带有 301 状态代码的 redirectWith 的示例是什么？

Answer 1

您可以在当前 Yesod 1.4.9.1 archive 可用的 test/YesodCoreTest/Redirect.hs 文件中找到示例：

import qualified Network.HTTP.Types as H

myR :: Handler Html
myR = redirectWith H.status301 HomeR

有关可用响应代码的列表，请参阅 Network.HTTP.Types documentation。