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

Question

我的网站是在Haskell / Servant和Wai / Warp中构建的。我需要将具有301或302状态的domain.com的所有请求重定向到www.domain.com。我知道我可以在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/"