wuss

Вусс

Защита WebSocket (WSS) клиенты в Хаскелле.

---

Wuss - это библиотека, которая позволяет легко создавать клиентов Secure WebSocket через протокол WSS. Это небольшое дополнение к пакету websockets и адаптировано из существующих решений @jaspervdj, @mpickering и @elcenlaid.

• Установка
• Использование

Установка

Чтобы добавить 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! " )

Для получения дополнительной информации о Wuss, пожалуйста, прочитайте документацию со сокным кодом.