Отправить 301 редирект в Йесод

Question

С помощью этого Yesod обработчика:

myR :: Handler Html 
myR = redirect HomeR 

можно перенаправить с помощью кода 303/302 состояния в соответствии с the documentation

В документации говорится, что redirectWith должны использоваться для других кодов состояния. Какой пример использования redirectWith с кодом статуса 301?

Answer 1

Вы можете найти пример в test/YesodCoreTest/Redirect.hs файла, доступного в текущем Yesod 1.4.9.1 archive:

import qualified Network.HTTP.Types as H 

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

Для получения списка доступных кодов ответа см Network.HTTP.Types documentation.