wuss

Wuss

Os clientes seguros do WebSocket (WSS) em Haskell.

---

Wuss é uma biblioteca que permite criar facilmente clientes seguros do WebSocket sobre o protocolo WSS. É uma pequena adição ao pacote websockets e é adaptada das soluções existentes por @jaspervdj, @mpickering e @elfenlaid.

• Instalação
• Uso

Instalação

Para adicionar Wuss como uma dependência ao seu pacote, adicione -o ao seu arquivo de cabala.

 build-depends: wuss

Para outros casos de uso, instale -o com CABAL.

$ cabal install wuss

Uso

 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! " )

Para mais informações sobre o WUSS, leia a documentação do Haddock.