wuss
2.0.2.1
Haskell中的Secure Websocket(WSS)客户端。
Wuss是一个库,可让您轻松地通过WSS协议创建安全的WebSocket客户端。这是websockets
软件包的一个小补充,由@JaspervDJ,@mpickering和@elfenlaid改编自现有解决方案。
要将Wuss添加为包裹的依赖性,请将其添加到您的Cabal文件中。
build-depends: wuss
对于其他用例,请与Cabal安装。
$ cabal install wuss
import Wuss
import Control.Concurrent ( forkIO )
import Control.Monad ( forever , unless , void )
import Data.Text ( Text , pack )
import Network.WebSockets ( ClientApp , receiveData , sendClose , sendTextData )
main :: IO ()
main = runSecureClient " echo.websocket.org " 443 " / " ws
ws :: ClientApp ()
ws connection = do
putStrLn " Connected! "
void . forkIO . forever $ do
message <- receiveData connection
print (message :: Text )
let loop = do
line <- getLine
unless ( null line) $ do
sendTextData connection (pack line)
loop
loop
sendClose connection (pack " Bye! " )
有关穆斯的更多信息,请阅读黑线怪文档。