haskell - 如何在 Wai/Warp 应用程序中将请求从 domain.com 重定向到 www.domain？

Question

我的网站是用 Haskell/Servant 和 Wai/Warp 构建的。我需要将我的所有请求重定向domain.com到www.domain.com301 或 302 状态。我知道我可以在 Wai/Warp 的帮助下做到这一点。具体如何？

startApp :: IO ()
startApp = run 1234 app

Answer 1

该包wai-util具有redirect'创建此类的便捷功能Response，因此您应该能够执行类似的操作

app :: Application
app req respond = respond =<< redirect' status302 [] uri
  where
    Just uri = parseURI "http://example.com/"