haskell - 最小 Warp 网络服务器示例

Question

我想使用 Warp 创建一个网站Haskell 中的网络服务器。

由于我是 Haskell 初学者，因此 this one 等示例对我来说太复杂了。

谁能告诉我一个简单的、最小的如何使用 Warp 的例子？

注意:这个问题故意显示没有研究工作，因为它是以问答方式回答的。

Answer 1

这是一个使用 Warp 3.0+ 的最小 Hello World 应用程序。运行它，然后导航到 http://localhost:3000 .此示例将显示 Hello world .

为了使这个示例最小化，根本不处理 URL 路径(为任何路径传递相同的内容)。有关包含 URL 路径处理的稍长示例，请参阅 the Haskell Wiki

{-# LANGUAGE OverloadedStrings #-}

import Network.Wai (responseLBS, Application)
import Network.Wai.Handler.Warp (run)
import Network.HTTP.Types (status200)
import Network.HTTP.Types.Header (hContentType)

main = do
    let port = 3000
    putStrLn $ "Listening on port " ++ show port
    run port app

app :: Application
app req f =
    f $ responseLBS status200 [(hContentType, "text/plain")] "Hello world!"

2014-06-20 更新:Warp 3.0 包含一些 API 更改——将它们反射(reflect)在代码中。