最小Warp Warp服务器示例

Question

我想在Haskell中使用经纱网络服务器创建一个网站。

因为我是Haskell初学者，所以像这一个这样的例子对我来说太复杂了。

有谁能给我举个简单的例子来说明如何使用经纱吗？

注意:这个问题没有表现出任何研究的努力，因为它被回答了问答式.

Answer 1

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

为了使这个示例保持最小，根本不处理URL路径(对于任何路径都提供相同的内容)。有关包含URL路径处理的稍微长一点的示例，请参阅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!"