在Yesod中发送301重定向

Question

使用此Yesod处理程序：

myR :: Handler Html
myR = redirect HomeR

我可以根据the documentation

使用303/302状态代码重定向

文档说明redirectWith将用于其他状态代码。将redirectWith与301状态代码一起使用的示例是什么？

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。