wuss

Faire un coup de fouet

Secure WebSocket (WSS) à Haskell.

---

Wuss est une bibliothèque qui vous permet de créer facilement des clients WebSocket sécurisés via le protocole WSS. Il s'agit d'un petit ajout au package websockets et est adapté des solutions existantes par @jaspervdj, @mpicking et @ElFenLaid.

• Installation
• Usage

Installation

Pour ajouter WUS comme dépendance à votre package, ajoutez-le à votre fichier Cabal.

 build-depends: wuss

Pour d'autres cas d'utilisation, installez-le avec Cabal.

$ cabal install wuss

Usage

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

Pour plus d'informations sur WUS, veuillez lire la documentation de Haddock.