wuss

โหยหา

ไคลเอนต์ Secure WebSocket (WSS) ใน Haskell

---

Wuss เป็นห้องสมุดที่ให้คุณสร้างไคลเอนต์ WebSocket ที่ปลอดภัยผ่านโปรโตคอล WSS ได้อย่างง่ายดาย มันเป็นส่วนเสริมเล็ก ๆ สำหรับแพ็คเกจ 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! " )

สำหรับข้อมูลเพิ่มเติมเกี่ยวกับ Wuss โปรดอ่านเอกสาร Haddock