haskell - Haskell サーバント wai ミドルウェアが正しく動作しない

Question

そこで、サーバント サーバーに 2 つの wai ミドルウェアを追加したいと考えています。静的ファイルを提供するための 1 つのミドルウェアと、ログ記録のための 1 つのミドルウェア。

私は自分のAPIを定義routerしました（）。これがサーバーを起動する方法です：

webServer :: IO ()
webServer = run 80 (middleware $ router)

そして、これが私の定義方法ですmiddleware：

middleware :: Application -> Application
middleware = do
  logStdoutDev
  staticPolicy $ addBase "static"

ここで、logStdoutDev最初に置くと静的ファイルを提供できませんが、staticPolicy最初に置くと静的ファイルを提供できますが、イベントをログに記録する機能が失われます (基本的にそれらは無視されます)。

wai問題は、サーバントでミドルウェアを適切に組み合わせる方法です。