列出的示例代码
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平台.
原文地址:https://www.jb51.cc/bash/385069.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。