haskell - 如何在 WAI (Warp) 应用程序中执行 IO

Question

我有一个简单的 WAI 应用程序(在本例中为 Warp)，它以“Hi”响应所有 Web 请求。我还希望它在每次处理请求时在服务器上显示“Said hi”。如何在我的 WAI 响应处理程序中执行 IO？这是我的应用程序:

{-# LANGUAGE OverloadedStrings #-}
import Network.Wai
import Network.HTTP.Types (status200)
import Network.Wai.Handler.Warp (run)

main :: IO ()
main = do
    putStrLn "http://localhost:3000/"
    run 3000 app

app :: Application
app _ = return hello

hello = responseLBS status200 [("Content-Type", "text/plain")] "Hi"

Answer 1

WAI 应用程序的类型是:

type Application = Request -> Iteratee ByteString IO Response

这意味着 WAI 应用程序在 Iteratee 中运行。 monad 变压器超过 IO , 所以你必须使用 liftIO定期执行IO行动。

import Control.Monad.Trans

app _ = do
    liftIO $ putStrLn "Said hi"
    return hello