列出的示例代码
here显示了如何仅在特定主机上进行warp侦听.
另外,this post展示了如何在Haskell中使用unix域套接字的一些基础知识.
如何将这两种方法结合起来使warp监听(即绑定)特定的unix域套接字(比方说,warp.sock)？
注意：这个问题故意不显示研究工作,因为答案是Q& A-Style.
您可以将runSettingsSocket与AF_UNIX套接字一起使用：
{-# LANGUAGE OverloadedStrings #-}
import Network.Wai (responseLBS)
import Network.Wai.Handler.Warp
import Network.Socket
import Network.HTTP.Types (status200)
import Network.HTTP.Types.Header (hContentType)
main = do
let port = 3000
-- Open the socket
sock <- socket AF_UNIX Stream 0
bind sock $SockAddrUnix "warp.sock"
listen sock maxListenQueue
-- Run the server
let settings = defaultSettings { settingsPort = port }
runSettingsSocket settings sock app
-- Cleanup: Close socket
close sock
app req f = f $
responseLBS status200 [(hContentType,"text/plain")] "Hello world!"
请注意,这显然只适用于unixoid平台.
