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

【问题标题】：How do I perform IO inside a WAI (Warp) Application如何在 WAI (Warp) 应用程序中执行 IO
【发布时间】：2011-10-14 17:48:59
【问题描述】：

我有一个简单的 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"

【问题讨论】：

标签： haskell io

【解决方案1】：

WAI 应用程序的类型是：

type Application = Request -> Iteratee ByteString IO Response

这意味着 WAI 应用程序在 IO 上的 Iteratee monad 转换器中运行，因此您必须使用 liftIO 来执行常规的 IO 操作。

import Control.Monad.Trans

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

【讨论】：

我只是浪费了几个小时在谷歌上搜索，这就是答案。进入 Haskell 时应该从哪里了解此类主题？