haskell - 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/"