wuss

Wuss

Klien Secure Websocket (WSS) di Haskell.

---

Wuss adalah perpustakaan yang memungkinkan Anda dengan mudah membuat klien Websocket yang aman di atas protokol WSS. Ini adalah tambahan kecil untuk paket websockets dan diadaptasi dari solusi yang ada oleh @jaspervdj, @mpickering, dan @FenLaid.

• Instalasi
• Penggunaan

Instalasi

Untuk menambahkan WUS sebagai ketergantungan pada paket Anda, tambahkan ke file Cabal Anda.

 build-depends: wuss

Untuk kasus penggunaan lainnya, pasang Cabal.

$ cabal install wuss

Penggunaan

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

Untuk informasi lebih lanjut tentang WUS, silakan baca dokumentasi Haddock.