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

发布时间：2020-12-15 18:24:08 所属栏目：安全来源：网络整理

导读：列出的示例代码 here显示了如何仅在特定主机上进行warp侦听. 另外,this post展示了如何在Haskell中使用unix域套接字的一些基础知识. 如何将这两种方法结合起来使warp监听(即绑定)特定的unix域套接字(比方说,warp.sock)？注意：这个问题故意不显示研究工作,

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!