haskell – Warp：绑定到Unix域套接字

列出的示例代码 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平台.