如何在简单的wai应用程序中使用wai-handler-devel

Question

我有使用wai的基本"hello world"应用程序设置,并且想使用wai-handler-devel,但我不确定如何去做它并且在wai项目中找不到它的任何使用示例.

{-# LANGUAGE OverloadedStrings #-}
import Network.Wai
import Network.HTTP.Types
import Network.Wai.Handler.Warp (run)
import Data.ByteString.Lazy.Char8 () -- Just for an orphan instance

app :: Application
app _ = return $ responseLBS
    status200
    [("Content-Type", "text/plain")]
    "Hello, World!"

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

我需要做些什么来让wai-handler-devel使用基本的wai应用程序？

注意:如果遇到"wai-handler-devel:command not found"的问题,可以在此处修复(https://gist.github.com/1499226)

Answer 1

wai-handler-devel的Hackage页面说它应该从命令行调用,如下所示:

$ wai-handler-devel <port> My.App.Module myApp

并且您的应用程序的类型必须如下所示:

myApp :: (Application -> IO ()) -> IO ()

在这种情况下,您应该定义myApp如下:

myApp :: (Application -> IO ()) -> IO ()
myApp handler = handler app

虽然你可能想app完全内联:

myApp :: (Application -> IO ()) -> IO ()
myApp handler = handler $ \_ -> return $ responseLBS
    status200
    [("Content-Type", "text/plain")]
    "Hello, World!"

类型是这样的,这样你就可以在启动时进行初始化等IO.我建议从wai-handler-devel的git存储库中读取SmallApp和FullApp示例; 后者特别有用,因为它具有显示重新加载期间代码流的调试输出,并显示了如何集成长时间运行的数据库连接.

FullApp示例的运行脚本还显示了如何以编程方式使用wai-handler-devel,包括手动指定Hamlet模板依赖项(wai-handler-devel命令行工具自动确定).

然后,您应该能够重写main如下:

main :: IO ()
main = do
    putStrLn $ "http://localhost:8080/"
    myApp (run 8080)

当然,您可以轻松地run从wai-handler-fastcgi,wai-handler-scgi甚至wai-handler-webkit传递函数.